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WRITING PRIVILEGED CODE 


TEST 


Before starting the lab assignment, copy the MAKETQE and 
STOPTQE files from a directory specified by your instructor. 
Change all references in your copy of the _ files from 
EXESGL SITESPEC to CTLSGL SITESPEC. In doing so, you can run 
your copy of the programs without interfering with other 
students running their copies of the programs. 


Use the MAKETQE.COM command procedure discussed in the module 
to assemble and link all the programs needed to run the 
MAKETQE and STOPTQE programs. That command procedure also 
defines DELTA as the debugger to use, and incorporates it into 
the programs. It also produces a file (TQEDEF.OBJ) defining 
all the symbolic offsets for TQE symbols. 


Listing of TQEDEF.MAR File 


: . TQEDEF. MAR 
H This prograns defines the offsets in a TQE block. 


STQEDEF GLOSAL 
«ENO 


1. Run the MAKETQE program without the control of the DELTA 
debugger. . | 


2. Use SDA to analyze the current system. 


3. Display the contents of the site-specific longword, 
CTLSGL SITESPEC. It should contain the address of the TQE 
built by the MAKETQE program. 


4. Make the TQE offsets known to SDA by reading in the 
TOEDEF.OBJ file created earlier. Note that the file 
SYSSSYSTEM:SYSDEF.STB can be read to define many of the 
system data structures. Similar files exist for RMS and 
DCL symbols (try a directory of SYSSSYSTEM:*.STB). 


5. Format the block pointed to by CTLSGL SITESPEC as a TQE. 
You should notice that the ROTYPE field contains a 5 (for 
a REPEAT, SYSTEM SUBROUTINE request - TQESC SSREPT). The 
FPC field should contain a system address (pointing to the 
code in the block from nonpaged pool). 
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WRITING PRIVILEGED CODE 


Use the FPC field displayed above to display the contents 
of the code block, and location being updated. Display a 
range of address starting at the FPC value (minus 12, hex 
C) for 28 hex bytes. You should see the INCL instruction 
(D6 FF ...), which was copied into the block by the 
MAKETQE program (check the MAKETQE listing file in the 
module). 


. Repeat the above instruction several times. You should 


find the value in the first location being incremented 
each time you repeat the command. 


Try to find the TQE block on the timer queue. The timer 
queue listhead is EXESGL TOFL. Note, howver, that you may 
not be able to find the TOE, since you are examining a 
running system, and as you traverse forward links, the 
data structures may be re-used, and no longer be valid 
TOES. You will know ‘when you reach the end of the TOE 
queue when you find a forward link pointing to 
EXESGL_TOFL+008. 


Exit from SDA. 


Run the STOPTQE program without the control of the DELTA 
debugger. 7 


Invoke SDA again for the currently running system. 


Display the contents of the CTLSGL_SITESPEC location. 
That location should now contain a @. 


Redisplay the contents of the data block several times. 
You should find that the first location is not changing. 
The data block should have been returned to nonpaged pool, 
so the first two longwords may be being used as forward 
and backward links. Depending on how busy the system is, 
that data block might already have been reused, or it may 
‘still contain the INCL instruction. 


Again read the file containing TQE symbols. 


Format the pool space previously containing the TQE as a 
TQE. Again, depending on system activity, this block may 
Or may not have been reused, and the contents may or may 
not have changed. 


Try to find the old TQE block on the timer queue again. 
This time, you shouldn't find it there. 


WRITING PRIVILEGED CODE 


Solution to Problem 1 (Page 1 of 3) 


$6 RUN/NODEBUG MAKETOE 

$ 

s gual ee sSysren 6. 
VAX/VA wstee analyzer 


SDA> SHOW SYMBOL CTILSGL_SITESPEC © 











CTLSGL-SITESPEC = 7FFEFF60 : 80108720 

SDA> 

SDA> READ TOEDEF.OBJ 

SBA> 

SDA> FORMAT G10B720/TYPE=TOE 

80108720 TOESLTOFL BOOAZSEAO 

8010B724 TQESL.TQSL 80002870 

80108728 TQESU_SIZE 0030 

@010B72A TQESBLTYPE oF 

80108728 TOESB.RQTYPE os ——— 

8010372C TQESL_FPC 8011394C << 
TQESL_PID 

80103730 TOESL-AST 004D0000 
TGESLIFR3 

80108734 TOESLASTPRH 00030071 
TQESLLFR4 

80108738 TQESQ_TIME 24SB4460 

8010B73C 008A72A2 

8010B740 TQESG.DELTA QOOF 4240 

8010B744 00000000 

60108748 TOESB.RMOD 45 

80108749 TOESBLEFN . 46 

8010B74a 3720 

8010B74C TOESL_ROPID SA4BS24F 





sDa> 

SDA> EXAMINE G11394C-C:611394C+20 6 
OOO1FFDS 00780020 00000000 000003A46 
59530803 0000002C 00801139 40050000 
$9532053 4S5544F4E 00105345 S44F4ES3 
SDA> 

SDA> $ 


eeoeerese eXeovee 
Cee RM ceeerer cSt 
SNOTES..NOTES SY 


OOOLFFDS 
59530803 
59532053 
SDA> 
SDA> & 
OOOLFFBS 
59530803 
59532053 
SDA> 


00780020 00000000 
0000002C 00801139 
4SS44F4E 00105345 


00780020 00000000 
0000002C 00801139 
4SS44F4E 00105345 


0Q0003E7 


40050000 


S44F4ES3 


0000040F 
40050000 
544F 4ES3 


eeeeeecce eXeveve 
eee hPecetecce eS 
SNOTES..NOTES SY 


ooeevece eXeoree 
oe BPoeetreveoe SY 
SNOTES..NOTES SY 


80113940 
80113950 
80113960 


80113940 
80113950 
80113960 


80113940 
80113950 
80113960 








WRITING PRIVILEGED CODE 


Solution to Problem 1 (Page 3 of 3) 


SDA> 


SDA> FORMAT G108720/TYPE=TOE 


8010B720 
90108724 
80103728 
8010B72A 
80108728 
9010872C 


8010B730 
80108734 


8010B738 
8010B73C 
80108740 
801038744 
80108748 
8010B749 
8010B74A 
8010B74C 


SDA> e 


SDA> EXAMINE EXESGL_TOFL 


EXESGL. 


SDA> EX @. 


B00ASEAO: 
sD 


SDA> _$. 


EXESGL.TQFL+008°% 


SDa> as 
sDa> 

SDA> EXIT 
$ 


QESL.TQFL 
TOESL.TQBL 
TQEGW.SIZE 
TQESB_TYPE 
TGESB.RQTYPE 
TQESL_FPC 
TQESL-PID 
TQESL_AST 
TQESL_FRI 
TQESL_ASTPRH 
TQESL_FR4 
TQESQ_TIME 


TQESQG_DELTA 


TQESB_RMNOD 
TQESB_LEFN 


TGESLIRGPID 


3 00 4 
S009BFD4 ‘ 


a> s 
DZDRIVER+A34% 80002878 


8010E300 


80113940 
8010C4620 
0015 

13 


00 

00000000 
004B0000 
00030041 


ASOAFE20 
008A72A2 
000F 4240 
00000000 
43 
00 
0000 
00010040 





-WRITING PRIVILEGED CODE 


Either print a copy of the MAKETQE and STOPTQE map files, or 
use the following section of those files to perform the 
following activities using the DELTA debugger. You will also 
need to consult the listing files in the module for MAKETQE 
and STOPTQE (or print copies for yourself). 


Relevant Section of MAKETQE.MAP File 


WORK SCMUIZNIEKS.SYSPRG.PRIVCODEIMAKETQE.EXES2 14-MAY~1982 16228 


92 208 C® 00 02 2e Bee ow ee ow ow ewan} 


{ Progranz Section Synopsis 


t 
$98 28 we 200 Cee ee ower eo woe ws 


Psoct Nane Module Nawe Sase End Length Align 
NONSHARED_OATA 09000200 000002122 90000013 ¢ 192) LONG 2 
MAKETOE 00000200 00000212 00000013 ¢ 19.) LONG 2 
“cose 000004600 G06006AC GOGOOCOAD ¢ 173-) BYTE 0 
MAKETOE 00000606 d0gGgdseac B0g0bOaAD ¢ 173.) BYTE 0 
o BSUANRK «© 00060600 06000606 60000000 ¢ Ge) SYTE 6 
MAKETQE 06600600 00000606 oC0G0gC00G ¢ G0) BYTE 6 
SYSSSSOEF 00000600. 60000600 00000000 ¢ 0.) BYTE 0 
SYSSPI_VECTOR 00000600 00006600 GoGggd00d ¢ QO.) SYTE 0 
Relevant Section of STOPTOE.MAP File 
WORK SLO MUIZNIEKS. SYSPRGePRIVCODEISTOOTQE.EXES1 1L4—-MAY-1982 16°28 
owen. 00 C0 oe Oe Oe Ow we en ee +> 


1 Program Section Synopsis ! 


Gowen wowewowo ww eow noe coon} 


Psect Name Module Nase Sase End Length Align 
NONSMARED_OATA 00000200 Ceeeczn€ codcoooar ¢ 175.) LONG 2 
STOPTCE 00000200 OOOOOZAE OO0000AF C 175.) LONG 2 
CODE 00000400 00000568 00000169 ¢ 361.) BYTE 0 
STOPTQE 00000400 00000568 00000169 ¢ 361.) BYTE 0 
« SLANK . 00000600 00000600 90000000 ¢ 0.) SYTE 0 
STOPTQE 90000600 00000600 00000000 ¢ 0.) SYTE 6 
SYSSP1_ VECTOR 00000600 00000600 00000000 ¢ 0.) SYTE 0 


14. 
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Run the MAKETQE program under the control of DELTA. 


Set a breakpoint at the TSTL G°CTLSGL SITESPEC instruction 
(line 62 in listing file), and start the program. 


When the breakpoint is reached, single step program 
execution for two instructions. Then, display the 
contents of location DELTA (line 32 in the listing file). 
You should confirm that the right value is present 
(@2OF4240), as indicated by the listing file. 


Set a breakpoint at the RET instruction on line 146 in the 
listing file. Recall that DELTA cannot’ be used when 
debugging code that executes at any IPL greater than 4. 
Proceed execution from the breakpoint. 


Examine the contents of R@, Rl, and R2 when the breakpoint 
is reached. R@ should have a success code, and Rl and R2 
will have system addresses. Proceed execution from. the 
breakpoint. 


When the program exits, exit from DELTA. (Be careful 
issuing the EXIT command. If you issue it at kernel mode, 
your process will be deleted, and when you hit <CR>, you 
will see a Username: prompt.) 


Run the STOPTQE program under the control of DELTA. 


Set a breakpoint at line 41 in the listing file, the call 
to SLKWSET. Then, start program execution. 


When the breakpoint is reached, issue the O instruction 
four times. You will notice that the arguments are pushed 
on the stack for the system service call (as the system 
service call macro is expanded). Notice that after the 
last O, the system service code is executed, and control 
is not returned until the system service completes. Set a 
breakpoint at line 79, the SOUTPUT macro, and _ continue 
executing the program. 


When this breakpoint is reached, issue the S instruction 
eleven times, while arguments are pushed on the stack. 
After the last S, you will notice that the call is not 
skipped over, but entered. 


Resume execution, and when the program completes, exit 
from DELTA. 


WRITING PRIVILEGED CODE 


Solution to Problem 2 


$ RUN MAKETOE a] 
DELTA Version X2.2 


00900402/PUSHL €00 4145BEP 2] 
1 BRK AT 00000414 


00000414/TSTL 907 FFEFF 60 ¢ 
QO00041A/BEQL 00000424 z © 
00000424/MOVL = 17 RI 200/000F 4240 


ssainie & 


2 BRK AT 000004A8 
000004AB/RET RO/00000001 R1/00B8A72A3 R2/80002870_____. 


#» @ 


EXIT 00000001 
8001 1B28/P0PR #03 EXIT 6 ] 


& 

pe SEE @ 
DELTA Version X2.2 
06000402/PUSKL $00 4145BSP 8 ] 
3 BRK at 00000414 
00000414/PUSHL 800 


00000476/PUSKL #00 a 
00000418/PUSHAG 60000200 8 6 


ajo 


OOGOO4SIE/CALLS CO3,@07FFEDFAO 2, 
00000425/BLBS ROr 00000429 4AP5BEP 


2 BRK AT 00000489 


00000449/CLRQ -(SP) S 

OOOCO4AB/PUSHL 820 s 

QQ00O4AD/PUSHL 800 S 

QOCCO4AF/PUSKL  000002SF is. 
000004BS5/PUSHAL 00000248 s 

000004BB/CLRO -(SP) Ss. © 
QOOOO4BD/PUSHL €#00 S 

QOOCOO4BF/HOVZWL 8300-(SP) Ss. 


000004C2/HOVZWL 00000208r-(SP) 
Q00004C9/PUSHL 800 8S 
QOOOO4CB/CALLS 900, @#7FFEDEOO 
7FFEDEQ2/CHMK = 9002 oe 


=. 
=. 


Valve in CTLSGL.STITESPEC = 890112AA0 fia] 
Value in field = 0000030C 

Velue in field @ OOO00030F 

Value in field = 00000311 

EXIY 600006001 

80011D28/POPR 003 = EXIT @ 


$ 





WRITING PRIVILEGED CODE 


Write a program that that will allocate and build an AST 
control block, and queue it to your own process. 


hig 


2. 


The program should determine its own process id, using the 
PCBSL PID field. 


It should then allocate enough space for an AST control 
block from nonpaged pool, using the EXESALONONPAGED 
routine found in the module. 

It should initialize at least the following fields: 

= ACBSW_SIZE (using size from EXESALONONPAGED) 

- ACBSB_TYPE (using appropriate DYNS$... symbol) 

- ACBSL_PID (using PID previously determined) 

- ACBSL_AST (using address of AST routine) 

- ACBSB_RMOD (using USER mode, PSLSC_USER) 

It should call on routine SCHSQAST to queue the AST 
(consult the supplied listing for required inputs and 
outputs). Note that this routine will raise IPL to SYNCH 
to queue the AST, and return at the same IPL at which it 
was called. 


The main program should then hibernate. 


The AST routine simply issues a anne system service, so 
the main program can exit. 


aSTOEL 
¥03-6000 


598 
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Listing of ASTDEL Module (Page 1 of 3) 


55 
FESB° 


590 Os€s SF 


$0 
54 0000 
60 Ae 


10 As 


08 as 


43 


oc AS 


“OFS6 
oc as 
oc 
$8 
65 
20 
68 as 
06 
FC 8F 


= AST ENQUEUVE AND DELIVERY 


06 
30 


il 


01aF 
GLAF 
O1Aae 
O1ae 
OLAF 
OLAF 
OLAF 
OiaF 
OLAF 
g1ae 
OLAF 
o1ac 
O1aF 
OlAF 
OLAF 
OLAF 
OLAF 
O1Aae 
O1AF 
OLAe 
G1aF 
OL1AF 
OLAF 
CLAF 
GLAF 
GLAF 
Olaf 
CLAP 
O1AF 
OLAF 
O1AF 
OlAF 
0iaF 
OLAF 
oL1aFr 
OLaF 
o1ae 
OLaF 
0182 
0185 
O1BA 
618C 
o18C 
o1ac 
o18c 
010 
01c6 
icc 
610% 
0103 
0105 
0109 
0208 
C1DE 
O1E£0 
O1Es6 
O1ES 


455 
456 
457 
458 
459 
460 
461 
462 
4663 
466 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
67? 
478 
479 
4890 
48% 
682 
483 
486 
46s 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
$02 
503 
504 
50s 
506 
$07 
$08 
$09 
$10 
$11 


oSBTTL 


é 
Sd 


29 06 ee 


8S8/I5S5 


29 C6 C6 6 CO OF we CO of a8 ef SO we Se ce 08 of 8 oo oO 


STOE EFFECTSS 


WILL BE 


G0 €0 20 46 eo ct ae 90 eo we 09 


eENABL 
QRONEXPR: 
MOVE 
6S8u 
wmOVUWE 
BRS 


MPHSQASTS3 

SCHSQASTS& 
mOVZWL 
OSSINT 
MOVL 
Creu 
BNEQ 
CURL 
INS QUE 
BNEQ 
TSTS 
BLSS 
sics3 


18 


TF APPROPRIATE. 


SSS_NONEXPR = 


. 2T~APR-1982 01208527 VAX—-11 Macro V03-00 
SCHSQAST = ENCUEUVE AST CONTROL BLOCK FOR 22-2MAR—-1982 17209355 _DBBOSCSYS.SRCIASTOEL.N 


SCHSQAST ~ ENQUEUE AST CONTROL BLOCK FOR PROCESS 


FUNCTIONAL DESCRIPTION: 
SCHSQAST INSERTS THE AST CONTROL BLOCK SUPPLIED IN THE PROPER 
POSITIGN BY ACCESS MODE IN THE AST QUEVE OF THE PROCESS SPECTF 
BY THE PIO FYELO OF THE AST CONTROL BLOCK. AN AST ARRIVAL EVE 
TS THEN REPORTED FOR THE PROCESS TO REACTIVATE FROM A WAIT STA 

THE AST CONTROL BLOCK WILL SE RELEASED IMMEODT 

TF THE PIO SPECIFIES A NON-EXISTENT PROCESS. 


CALLING SEQUENCES 


SCHSQAST 


INPUT PARAMETERS? 
RZ = PRIORITY INCREMENT CLASS 
RS - POINTER TO AST CONTROL BLOCK 


TMPLICTIT INPUTS: 
PCB GF PROCESS IDENTIFIED SY PIO FIELD 


GUTPUT PRRARETERS : 
RO - COMPLETION STATUS CODE 
R4 = PCB ADDRESS QF PROCESS FOR WHICH AST WAS QUEUED 


LOADABLE MULTI=-PROCESSING CODE WILL REPLACE THIS ROUTINE WITH 
ENTIRELY NEW CODE, AT MPHSQAST. 


THE PROCESS IOENTIFIEG BY THE PIO IN THE AST CONTROL BLOCK 


MADE EXECUTABLE IF NOT SUSPENDED. 


COMPLETION COOES: 
SS$_NGRMAL @- NORMAL SUCCESSFUL COMPLETION status 
NON-EXISTENT PROCESS 


LSé 


RS_RG 
EXESOEANONPAGED 
@SSS_NONEXPR,RO 
QExIT 


e¢ @@ G0 06 00 


ACBSSL_PIOCRS), R20 

#TPLS_ SYNCH 

au* SCHSGL_ PCBVECCROIJ,R4 
ACESL_PIOCRS),PCEStL_P IOC 
QNONEXPR 

RO 

CRS) -PCBSL_ASTQFLCRS) 
508 

ACBSB_RMODCRS) 

108 
@°CC39,ACBSB_RMOOCRS) ROS 


20 C8 2e C6 C82 66 ZX C6 Ce oF Oe oF 


RELEASE AST CONTRGL SLOCK 
TF NG SUCH PROCESS 

SET ERRCR STATUS CODE 

AND EXIT 


MULTI<PROCESSING HOOK TO REP 
ENQUEUVE AST FOR PROCESS 

GET PROCESS INOEX FOR AST TA 
OISABLE SYSTEM EVENTS 

LOOK UP PCB ADDRESS 


4) 3 CHECK FOR MATCH IN PID 


PIO MISMATCHES 

ASSUME KERWEL MOQOE AND CLEAR 
ASSUME QUEVE IS EMPTY AND AT 
OR IF IVY WAS NOT EMPTY 

CHECK FOR SPECIAL KERNEL AST 
BR IF YES 

GET AST MODE 


THE PROCESS WEACER ADDRESS IS ALWAYS A SYSTEM SPACE ADDRESS CNEGATIYV 
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Listing of ASTDEL Module (Page 2 of 3) 


$6 01 3C «(Ol FC $23 30838 MOVZWL «8SSS_NORMAL, RO 
O1FF $26 QEXITS ENSINT 


SET SUCCESS STATUS CODE 
ENABLE INTERRUPTS 


© AST ENQUEVE AND DELIVERY 27-APR=1982 01208227 VAX=-11 Macro V03-00 Page 14 
SCHSQAST - ENQUEVE AST CONTROL BLOCK FOR 12-MAR-1982 17209855 _OBBOSCSYS.SRCIASTOEL.MARS1 1) 
O1E6 S12 ¢ WHILE THE PROCESS WEADER IS RESIDENT. OURING THE OUTSWAP TRANSITION IT IS 
O1E6 S13 ¢ THE BALANCE SLOT INDEX, A SMALL POSITIVE NUMBER. FINALLY, AFTER OUTSWAP IT 
C1E6 S14 3 IS SET TO ZERO. WENCE, THE FOLLOWING TEST COMBINES THE FETCH OF THE PHO 
OLE6 S15 s ADORESS WITH THE TEST FOR PROCESS RESIDENCE. 
0166 «60816 
$1 64 && 00 0166 $17 108: mOVL PCBSL_PHOCR4S)»R1 $ POINT TO PROCESS HEAOER 
0S 18 O1€a $18 BGEQ 208 ¢ DON’T SET ASTLYL If NOT RESIDENT 
00cs C1 50 96 O1€C 519 mOvS RO, PHOSB_ASTLYLCRI) 3 SET ASTLYL IM PROCESS HEADER 
Ss 0000°CE 01 O1F1 520 208: CmPL W* SCHSGL_CURPCB, RS 3 IS PROCESS CURRENT PROCESS 
08 13 O1F6 8 S21 seQL 40s 3 YES, 
O1fs 86 $22 RPTEVT AST 2 REPORT AST ARRIVAL 
s 
e 
0S 0202 $25 RS6 3 ANO RETURN 
0203 $263 
0203 $27 : IF TWE AST IS BEING ENQUEVED FOR THE CURRENT PROCESS, THEN THE REPORTING 
0203 $28 OF THE AST EVENT CAN BE BYPASSED AND THE ASTLVL PROCESSOR REGISTER PUST BE 
6203 S29 : SET INSTEAD. 
0203 «$30 : 
13. $0 «0A 0203 $31 608: MTPR RO, #PRS_ASTLYL ¢ ALSO SET ASTLVL REGISTER 
Fe 31 0206 $32 BRB 308 : 
0208 5333 
0208 S36 ¢ THE AST QUEUE WAS NOT EMPTY CITS USUAL CONDITION) ANO THE PROPER 
0208 535 3 POSITION FOR THE NEW AST MUST BE LOCATED. SINCE THE AST CONTROL 
0208 536 % BLOCK HAS BEEN ERRONEQUSLY INSERTED ON THE QUEUE, IT MUST SE REMOVED 
0208 $37 3 FIRST. 
0208 $38: 
5S 65 OF O208 $39 Sos: REMQUE CRS) RS 3 ELSE CORRECT MISTAKE 
S51 10 46 DEF 0208 $60 MOVAL PCBSL_ASTQFLCR4S) RL 2 POINT TO QUEUE HEADER 
$3 61 400 O20F S41 MOVL CRIDR3 ¢ GET FIRST ENTRY ON QUEUE 
08 aS 95 0212 $42 TSTB ACBSB_RMOOCRS) : CHECK FOR SPECIAL KERNEL AST 
OF 18 0215 $43 BGEQ 10% 2 BR IF NOT 
0217 546 3 
0217 $65 3 THE NEW AST TS A SPECIAL KERNEL AST. IT WILL GO AFTER ALL OTHER SPECTAL 
0217 $66: KERNEL ASTS OR AT THE HEAD OF THE QUEUE IF THERE ARE NONE. 
0217 «S47; 
53 S2 OL O217 $48 6082 CPL R1,R3 : CHECK FOR END OF QUEVE 
27 «13 0218 = 549 BEQL 1108 : BR TF NOT 
C8 a3) «695 «6021C.~— $50 TST8 ACBS8_RBOOCR3D 3 CHECK FOR SPECIAL KERNEL IN QUEUE 
22. «18 «O2Z1F (552 8GEQ 1108 2 8R IF NOT 
$3 63 00 0221 $52 MOVE (R32 oR3 > FLINK ON TO NEXT ACS 
Fl 22 0224 553 ; ses 60% : 
0226 «S84; 
0226 555 ; THE NEW AST IS A NORMAL AST. IT WILL GO AFTER ALL SPECIAL KERNEL ASTS 
0226 556 : AND ASTS WITM LOWER ACCESS MODE. 
0226 «65573 
So 08 AS) FC 8F (88 0226 558 7082 BICES  8*C<3>,ACBSB_RMOOCRS), ROS GET AST MODE 
$3 $1 OL O22C $59 808: CmPL R1.R3 3 CHECK FOR ENO OF QUEUE 
12. 13 022% $60 SEOL 1108 3 INSERT IF AT END 
02 oc €0 O231 $61 CHPZY =#ACBSV_MODE,#ACBSS_MODE,— 
$008 3 0236 $62 ACBS8_RMOOCRID, RO 3 COMPARE ACCESS MOCES 
05 16 0237 $63 SGTR 100$ : IF GTR AT RIGHT PLACE 
53 63 00 0239 $64 908: MOVE CR3D9R3 ¢ FLINK ON TO NEXT ACB 
EE 12 023C $65 BR8 80s H 
08 43 95 O23 566 1008: STS ACBS8_RMODCR3) 3 IS THIS ENTRY A SPECIAL KAST? 
FE 19 0261567 SLss 908 : YES, MUST GO AFTER THIS 


0243 $68 ¢ 


2 
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Listing of ASTDEL Module (Page 3 of 3) 


aSTOEL ~ AST ENQUEVE AND OELIVERY ZT7T—APR=-2982 OLSO8S2T VAX—-11 Macre V03-00 
v03-000 SCHSGAST = ENQCUEUVE AST CONTROL BLOCK FOR 12-MAR-1982 17209555 DBSOSCSYS.SREJASTOEL. MARS 
0263 569 $ NOW THE CORRECT POSITION WAS BEEN LOCATED. INSERT THE AST CONTROL BLOC! 
0243 S70 3 ON TRE QUEUE AND COMPUTE THE NEW VALUE FOR ASTLVL BY INTERROGATING THE 
02463 S71 3 “QOE GF THE AST CONTROL BLOCK AT THE HEAD OF THE QUEUE. 
0243 S72 3 
64 83 65 OE 6243 573 1108: INSQUE CRS), ZACHSL_ASTQBLCR3) § INSERT AFTER PREVIOUS 
50 06 6247 ST% CLRL RO 8 ASSUME KERNEL MODE 
$1 1@ A6 00 0249 $75 MOVL PCBSL_ASTOFLCRSD RI s GET HEAD OF AST QUEUE 
08 al 95 0260 $76 Tsts ACBS8_ RMOOCR1)D ¢ IS IT Kast? 
94 19 0250 S77 BLSS 10$ ¢ BR IF YES To SET ASTLVL 
$0 68 Ai FC 8F 88 0252 578 erca3 @°CC3ID>,ACBSB_RMOOCRIIDAROE GET AST MODE FOR HEAD OF QUEUE 
8c 1i 0258 573 gre 10$ $ GO SEY ASTLVL 
Q258 $80 
0254 $8t eOSABL LSB 
025A $82 ASSUME ACBSV_MOOE EQ 0 
O288 $83 ASSUME ACBSS_MODE EQ 2 
O254 $84 ASSUME ACSSV_KAST EQ 7 
6254 $85 


12 


eo 


ee cf 


4 we oo 


INO we we 


ASTAOR: 


6083 


WRITING PRIVILEGED CODE 


Listing of OWNAST.MAR File 


OWNAST. MAR 


This program sllocates and builds an AST control block, 
wrich it aueves to itself. 


Global syabols 
SCYNOES 
sacecer 
SPOTOES 
SIPLOES 
SPSLOEF 


Local Storage 

ePSECT NONSMARED_ OATA SLC, NOEKE, LONG 

oOLKL 1 3 Location to store PID 
e2OORESS ASTADR 3 &ddress of AST routine 


Program entry soint 
oPSECT CODE PIC. SHR, NCURT 


o WORD 9 $ no registers need he saved 
SCYKRNLLS ROUTINGIOS 3 90 cueue AST to self 

SL85S RO,7$8 3 exit if errer 

RET 

SHIBER_S 3 wait for aST to wake 

RET , 


Queue AST to self 


owORO 9NCP2_,23_R4_,RS> save some registers 


MOVE G*SCHSGL_CURPCS.20 3 get CURRENT °CB address 
“OVL PCSSL_9I0C ROD, PID 3 get PID from PCB field 
MOVE SACBSK LENGTH, R1 3 get length of AST block 
SETIPL eLPLs_aSTCEL 3 prevent process deletion 
JS8 G°EXESALGNINPAGED 2 get peol space 

§La$ RO, 208 $ axit if none 

SEYIPL #0 3 lower IPL if error 

RET 

tnitialize code block to look like acs 

“OVW Ri, aC8sw i STZECR2) 3 reeord size of block allocated 
“OVE SCYNSC_ACB, ACBSS_TYPECR2) 2 and type 

MOVL PIO, ACBSL_PIDCR2) 2 got oid from GET IPT 

MOVL AST, ACBSL_ASTCR2) 3 store AST address 

aOVS SPSLSC_LUSER, ACSSB_RMCOCR2Z)_ $ user mode Ast 


Prepare registers ta queue AST CSCHSQAST raises IPL to SYNCH) 


*OVL R2, RS < Reed address of AST block 
MOVL S@PRTS TICOM, R2 3 give big boast 

JS8 G* SCHSQAST ¢ Queue AST 

MOVL SSSS_NORMAL, RO : indicate success 

SETIPL #0 * lower {PL before returning 
RET 

AST routine simply asakens main : 

2 WORD ty) $ neo registers saved 
SWAKE_S 

BLaCc RO, £08 

RET 


SEXIT_S CODE=R0 


e ENO START 
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WRITING PRIVILEGED CODE 


Sample Run 


$ TYPE OWNAST.COM 


MACRO OWNAST+SYSSLIBRARYSLIB/LIB 
LINK OWNAST, SYSSSYSTEM:SYS.STB/SELECTIVE 


gownast 
SET PROCESS/PRIV=(CMKRNL) 


OODRFSOGRKEHES 


RUN GWNAST 
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WRITING PRIVILEGED CODE 


If you receive MAIL while you are logged in, the system 
displays the following message on your terminal "New mail from 
xyzuser". Use the PATCH utility, as described below, to alter 
that message. 


l. 


Copy the file OLDMAIL.EXE to your directory from a 
directory specified by your instructor. (This file may 
not be exactly the same as SYSSSYSTEM:MAIL.EXE.) You will 
patch your own copy of this MAIL file, not the one that is 
being used on the system. 


Use the DUMP command to display the contents of the 
OLDMAIL.EXE file (you probably want to use the /OUTPUT= 
qualifier so you can print the output file). Also, use 
the ANALYZE/IMAGE/OUTPUT= command to obtain a listing of 
the image section descriptors. 


Locate the text of the "New mail from !AS" message. The 
descriptor for the string follows the text (string length, 
String address). If you didn't know where the descriptor 
was, once you found the string, you could use the SEARCH 
command to search the file for the string address, and 
decide if -any of the occurrences could be part of the 
descriptor. 


Tf you only wanted to change the text (keeping the same 
number of characters in the string), you could simply 
deposit over the locations containing the text you want 
altered. For example, changing "New" to “Fan". 


If you want to change the message to have a different 
number of characters, you will have to insert a new text 
String in the image file, and update the descriptor to 
contain the new string length and address. 


To add a different string like “Junk mail from !AS", you 
must locate some unused space in the image file. Look in 
the image section containing the message for empty space 
(all @'s in the DUMP output). Note that the number of 
blocks in each image section is specified in the 
ANALYZE/IMAGE output. 


Run the PATCH utility, creating a journal file, and 
specify your copy of MAIL as input. 


1. Ask to CREATE a command procedure file with the PATCH 
commands you issue. 


2. SET the ECO level. 


nS) 





WRITING PRIVILEGED CODE 


3. Issue DEPOSIT commands to add the ASCII text you want 
at an unused location in the image file. (Note that a 
BYTE value of 7 rings the bell. You may want to ring 
the bell before displaying the message.) 


4. Overwrite the string descriptor with the length of the 
text string you chose to use, and the address of the 
text string you entered. : 


5. Issue the UPDATE command to make the changes in _ the 
file. 


6. EXIT from PATCH. 


Test your MAIL program by sending MAIL to yourself, and 
seeing if the right text string is displayed. You will 
require the following privileges to run your copy of MAIL: 
(WORLD, OPER, NETMBX, SYSPRV) 


You Should verify your PATCH session was a success by 
Gisplaying the journal file and the produced command 
Procedure. You can also issue the ANALYZE/IMAGE/PATCH 
command to examine the file you patched. 
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WRITING PRIVILEGED CODE 


Relevant Section of ANALYZE/IMAGE Output 


Analvze Iaase 14-MAY-1982 163442346.10 Page i 
WORKS CMHUIZNIEKS.SYSPRG.PRIVCODE JOLDMAIL .EXE31 


IMAGE HEADER 


Fixed Header Inforasatioan 


imsse format aaJor id’ 02» sinor id: 04 
header block count: 1 
tease twee? executable (IHDSKIEXE) 
1/0 channel count: default 
1/0 wade count: default 
linker lags: 
(0) JHDSV_LNKDEBUG 
(1) THDSYV_LNKNOTFR 
(2) IHDSV.NOPOBUFS 
(3) LHKOSVLPICIAG 
(4) IKDSV_POIMAGE 


or ooo 


Taase Activation Inforeation 


firet transfer address; %X‘00001810° 
second transfer address: 2X’°00000000° 
third transfer address; %2X‘°00000000’ 


Global Svadol Table & Debus Svabdol Table Inforaation 


GebUs svabol table VBN: OO» block count: 0 
Sliabsl swadul table VBNS O+ reecard count’ 0 


lnade Identification Information 


imsese nase? *MAIL® 

image file identification: *V03-001° 
Link date/tiae? 24-FE3-1982 09234:06.12 
linker identificsetion: *03-14° 


Patch Inforaation 
There are no patches at this tine. 


Tease Section Descrirtors (ISD) 


1> imase section descriptor (16 dDvtes) 

Psse count: 3 

base virtual address: 2X‘°00000200’ (PO srace) 

Pade fault cluster size: default 

ISD flags: 
(O> ISDSV.GBL 
(1) ISOSVLCRE 

“¢2) ISD8VLDZRO 

€3) ISDSV.WRT 
(7) ISDSYVLLASTCLU 
(8) YISDSVU_COPYALWAY 
(9) ISDSV_BASED 
(10) ISDSYV_LFIXUPYVEC 
(17) ISDSV_VECTOR 
(18) ISDSV_PROTECT 


ecoooorooo°o 


L? 


WRITING PRIVILEGED CODE 
Relevant Section of DUMP Command Output (Page 1 of 2) 


Duee of file WORKS CHUIZNIEKS.SYSPRG.PRIVCODEJOLDMAILEXE#1 on L4-MAY-1982 16345: 
$3.02 
File 1D (372652350) End of file block 346 / Allocated 36 


Virtual black nuader 3 (00000003)° $12 (0200) butes 


00000410 010£0005 0054454E 24535953 SYSENET..ccoeece 000000 
0000223D 4049414D 223A3A3A S44S4ESF _NETIS2°MAIL@%e. 000010 
66204E5S2 55544552 20737365 72500A0D ..Press RETURN f 000020 
0000001A GOOO2ZEZE 2E465726F 6D207246F oF moressssccees 000030 
00000007 00534121 202A2321 00000420 ...168 !ASe.sse 000040 
20206D4F 72462023 20202020 00000444 D... @ Froe 000050 
44202020 20202020 20202020 20202020 D 000060 
6A627553 20202020 20202020 20657461 ate Subj 000070 
00000020 00000454 0000002F 007446365 ects/eecTevs sce 000080 
ACSS3521 OOOOZAZA 0000048C 00000001 veceeceofiee!SUL 000090 
44412120 53413231 21204441 30322120 !20AD !12AS !AD 0000A0 
49444524 4C49414D 0000049C 00000014 .....0+.MAILSEDI 0000B0 
21402024 000004BB 00000009 00000054 Tesoscsecese® @! 0000C0 
00002253 41212220 22534121 22205341 AS °FAS* °!AS*.. 000000 
54535953 24535953 000004CC 00000012 .....+.sSYS8SYST 0000E0 
004D4F43 26544944 45404941 4D3A4D45 EMIMAILEDIT.COM. 0000F0 
6F792072 S5746E4S 000004EB 00000017 ..cceessEnter vo 000100 
F76FS6CSS 62206547 61737365 60207275 ur aessastze below 000110 
77205A2F 4C525443 20737365 7250202E . Press CTRL/Z w 000120 
$443202C 6574656C 706D6F43 20666568 hen comrleter CT 000130 
00000038 744697571 206F7420 432F4CS52 RL/C to auiti... 000140 
00000003 00000001 00000508 00000045 Esceoccecccceeecs 000180 
00000560 00000008 50404548 4C49414D HAILHELP....'ses 000160 
00000042 4C482E3A $04C4548 24535953 SYSSHELP:.HLB... 000170 
00001764 0202000€C 00000570 00000000 ...ePeseeeecdese 000180 
00001778 00001770 O31D0008 00001750 ‘sessccemeceXece 000190 
7266208C 69616D20 77654E07 00000000 .....New mail fr coo1aome—MeSSage to be changed 
00000SA4 00000012 00005341 21206D6F om !AScccecececs 000130 
00000009f,000000S4 4£495250 24535953 SYSSPRINT....... 000100 Starts at 5A4 (hex) 
6E452057155212042 6F4A2020 000005SCO .... Job !UW en 0001D0 
21206575 | 45757120 SE6F2064 65726574 tered on aueue ! 0001E0 
J25OOAOD |00000SD4 O000001E 00004341 ACoecesccscceePh OOOLFO 


Descriptor for message to be changed 
length 12 (hex) = 18 decimal bytes 
5SA4 = starting address of string 
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WRITING PRIVILEGED CODE 


Relevant Section of DUMP Command Output (Page 2 of 2) 


Dune of file WORK: CMUIZNIEKS.SYSPRG PRIVCODEJOLDMAIL .EXE31 on L4-MAY-1982 16245: 


53.02 


File ID (37262320) 


End of file block 36 / Alloested 36 


Virtual block nuaber 4 (00000004)» 512 (0200) bytes 


6020726F 
OO000SFC 
0000000C 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90900000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
09000000 
00000000 
00000000 
00000000 


66204E52 
0000001A 
4€3552123 
00000000 
00000000 
00000000 
900000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90000000 
00000000 
900000000 
00000000 
90000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90000000 
00000000 
00000000 
00000000 
00000000 
90000000 
90000000 
00000000 
90000000 


55544552 
OO002E2E 
20534121 
00000000 
09000000 
00000000 
00000000 
00000000 
00600000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00.000000 
00000000 
00000000 
00000000 
90000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90000000 
00000000 


20737365 
2E65726F 
202A2321 
00000620 
00000000 
900000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90000000 
00000000 
00000000 
900000000 
00000000 
00000000 
00000000 


ess RETURN for ea 
OPercevrescesoooees 
'@z §!AS #!UL.... 
Pooeerocoeerecseon 
ooseoeeeeoeeae oe ee 
eeoereeooeeooe ov eoes 
eeoeeeoocoeoeoeese od 
ee@e@seeooeoeeoeocee ood 
eeeewo#ooeoe17dcnonsd 
eoeveroeoe ee oooeeod 
eoceooveoe oe oe oe oe 
eo@*@oeoevs oe oe oee oes 
oeeto@eneooooooce © 
eoeeeooocoeoe eoooceeoe fo 
@eeooeoeceocoeoe od 
eeeeoeveocoeeeooe oe 
eooceoeoetcooesooed 
eoeereoseoeeaoeooond 
ecVaoev tee eeeaece soo 
@eo2oecoeeoeooeoveos 
eeevpeoeoe eos oe ood 
feeoovooceeoeoocea oe eed 
@eeeoCeoev oe oscoeoee 
eecoeosgeeocneceaesv ed 
eeeceocooenseeoees 
eeov ee oceeeeoe Cet 
@eeeooce# eee eeooceee 
e@eeeeveatcoeose ee coe eno 
epeveveecoesecosv eo 
e@eoocoeceeteeoceese 
e@ocooes eee ce FSHoC RO 


eceoeeeececcooaee © ee 
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000000 
000010 
000020 
000030. 
000040 
000050 
000060 
000070 
000080 
000090 
0000A0 
000080 
0000C0 
0000D0 
0000£0 
0000F0 
000100 
000110 
000120 
000130 
000140 
000150 
000140 
000176 
000180 
000190 
0001A0 
000180 
0001CO 
0001D0 
0001£0 
0001F0 


Unused space in 
image section - 
will be used to 
hold text of new 
message starting 
at 634 (hex) 





WRITING PRIVILEGED CODE 


Patching the New MAIL File Terminal Session 


$ PATCH/ JOURNAL NEWMAIL.EXE 


PATCH Version 3-00 15-Nar-1982 


ZPRTCH-I-NOLCL? imade does not cont3zin locul sunbols 
ZPATCH-I-NOGBL> some or 211 slobsal swabols not saccessible 
PATCHDOCREATE PATCHMAIL 
PATCH>SET ECO 1 
PO ee Kee a ASE Le — Enter new message 
° e 
NEW>/_Jun’ in unused area 
NEW>‘’k wa’ 
NEW> 
NEW>/ roe ° 
NEW’ aS ¢ 
NEWSEXIT 
old’ 000006343 °°’ 
olds 00000638: °° 
old: QC00063C3 °° 
eld’ 00000640: O78, 
olds 000006443 °° 
news 000006342 ° Jun’ 
news 00000638: ‘k wa’ 
news 0Q000063CS ‘il f° 
news 000006403 ‘rom ’ 
new? 000006443 “!AsS ° P 
PATCH? DEPOSIT/BYTE <t——— Make first character 
NEW ring terminal bell 
NEWD>EXIT 
old: 00000634: 20 
new: 0000046343 07 


PATCH> DEPOSI Tq ———_____ ; : 
LocsBao Update descriptor to point 


NEW>"X13 to new message. New message 
NEWSERIT- length now 19 (decimal) = 
olds 00000SB8: 00000012 13 (hex) bytes 


olds QOO0OSBCS 000005A4 

news Q0000SBSE: 00000013 

news OQ000SBC: 00000634 

PATCHOUPDATE 

ZPATCH-I-WRIFIL: updatins image file WORK: CHUIZNIEKS.SYSPRG.PRIVCODE IJNEWHAIL EXE 
$2 

PATCHD EXIT 

$ 





208 





WRITING PRIVILEGED CODE 


Sample Run To Test Patched File 


$ SET PROCESS/PRIV=(WORLDs OPER» NETHBX»SYSPRYV) 
8 
® RUN NEWMAIL 


MAIL> SEND’ 

Tos MUIZNIEKS 

SubJ: TESTING NEW MAIL VERSION 

Enter vour message below. Press CTRL/Z when coerleters CTRL/C to auit: 


This should be sent with JUNK MAIL message 


a 


Junk mail from MUIZNIEKS 

MAIL> EXIT 
r 
$ MAIL 


You have 1 new sessase. 


MATL? ee 

MAIL $53 
Froa’ MUIZNIEKS L4-MAY-1962 16:53 
Tot RUIZNIEKS 


SubJ: TESTING NEW MAIL VERSION 
This should be sent with JUNK MAIL nessade 


MAIL> DELETE 


MAIL> SEND 
To? MUIZNIEKS 
Subj: STILL TESTING 


Enter vour nessase below. Press CTRL/Z when completes CTRL/C to auit: 
This’ aessase should still be sent with regular NEW MAIL indication 








New pail from MUIZNIEKS 


MAIL> READ MAIL 
a MAIL #53 


Froa: MUIZNIEKS 14-HAY-1982 16354 

Tos MUIZNIEKS 

SubJ: STILL TESTING 

This eessade should still be sent with resulsr NEW MAIL indication 
MAIL> DEL 


MAILD EXIT 
$ 
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WRITING PRIVILEGED CODE 


Examining Journal File 


$ TYPE NEWMAIL.JNL 
PATCH Version 3-00 15-Mar-1982 


IMAGE FILE BEING PATCHED: *WORKS CMUIZNIEKS.SYSPRG.PRIVCODEINEWMAIL .EXE31° 
JOURNAL FILE? "WORKS CMUIZNIEKS.SYSPRG.PRIVCODE INEWMAIL. INL 2° 
DATE/TIME OF PATCH’ 14-MAY-1982 163473 48.54 


ZPATCH<I-NOLCL» inmase does not contain local swabdols 

ZPATCH-I-NOGBL» some or 811 global swadols not accessible 

PATCHD>CREATE PATCHMAIL 

COMMAND FILE: *VORKS CHUIZNIEKS.SYSPRG PRIVCOUDEIPFATCHMAIL .COM32 
© 


PATCHDSET ECO 1 
PATCHSDEPOSIT/ASCITI 

LOC> “x34 

NEW> ° Jun’ 

WEW> ‘rk ma’ 

NEW> ‘11 9° 

NEW> ‘ree ’ 

NEW> ’!AS ’ 

NEW> EXIT 

elds 00000634: °°’ 

old’ 00000638: °°’ 

elds 0000063C;3 °° 

old’ 00000640: °” 

ahd’ 00000644: °° 

news 00000634: ‘° Jun’ 
news 00000638: ‘k as’ 
news 0000063C: ‘ik 7° 
new? 06000640; ‘rue ’ 
Rews 000006443 ‘tas ° 
PATCHDDEPOSIT/BYTE 

LOC> “X6s4 

REW> 7 

NEW> EXIT 

old’ 00000634: 206 

news 00000634: 07 
PATCHSDEPGSIT 

LGE> S88 

REW> “X13 

NEW> “X634 

NEW> EXIT 

eld: 00000SBS: 00000012 
elds 00000SBC; 00000SA4 
new: 000005B98: 00000013 
news QOO0000SBC:$ 00000634 
PATCHOUPDATE 
LPATCH-I-WURTIFIL >» updatins imase file WORK? CMUIZNIEKS.SYSPRG.PRIVCODEINEWMAIL EXE 
$2 i: 
PATCHOEXIT 

5 
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WRITING PRIVILEGED CODE 
Relevant Sections of ANALYZE/IMAGE/PATCH Output (Page 1 of 2) 


Analivze Inase L4-MAY-1982 16°359°22.98 Pase 1 
WORK $ CMUIZNIEKS.SYSPRG.PRIVCODEINEWMAIL. EXES2 


IMAGE HEADER 


Fixed Header Information 
f 


ivmade foreat waJor id: 02» sinor id? 04 
header block count: 1 
imadse ture: executsble (IHDSKEXE) 
1/0 channel count: default 
1/0 pase count: default 
linker flags: 
€O) THDSV.LNKDEBUG 
(i) THDSV.LNKNOTFR 
(2) THOSV.NOPOBUFS 
¢«3) THDSV_PICIMG 
(4) INDSU_POIMAGE 


oroco 


Tease Activatian Information 


first transfer address: %X’°00001810’ 
second transfer address: 2X%°00000000’ 
third transfer sddress: %X‘’00000000° 


Glebsl Svaebol Table & Debus Sweabol Table Inforastion 


debus svebdol table VBNS Os block count: 0 
Slobal syadel table VBNS QO» record caunt: 0 


Iaase Identificstion Inforastion 


image nase: “MAILS 

imese file identification: °V03-001° 
link date/tieae: 24-FEB-1982 09°34:506.12 
linker identificstion’ °03-14° 


Patch Inforaration 


DEC eco levels l- 983 %X°00000001'» %X°00000000'» 2£X*00000000° 
user eco levels 99-132: %X%’00000000’ 

Tread/write match ares address: %2%°00000000'» lensth: 0 
Pead-onlw patch area address: %X%°00000000’s Llenath: 90 

patch command text VBN: 37 

last patch date/tine? 14-MAY-1982 16347348.54 


Iaase Section Descrietors (ISD) 


1) image sectian deseriretor (16 butes) 
pase count: 3 
base virtual sddress: 2X‘00000200’° (PO space) 
page fault cluster sizes default 
ISD fisaas: 
(0) ISBSVLGBL 0 
(1) ISOSV_CRE 0 
(2) ISDSV.DZRO 0 
(3) ISOSVLWRT 0 
(7) ISDSVLLASTCLU 1 
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WRITING PRIVILEGED CODE 
Relevant Sections of ANALYZE/IMAGE/PATCH Output (Page 2 of 2) 


Analyze Inede L4—-MAY-1982 17°01°03.88 Passe 6 
WORKS CMUIZNIEKS.SYSPRG.PRIVCODE INEWMAIL .EXES2 


PATCH TEXT 


/ JOURNAL NESKAIL EXE 
s€ €c 
-x00000001 
B /AS 
“X00000634 
e dun’ 

“ “hk we’ 
“ail f? 
“Poe ’ 
“as ° 
ExY 
Bb /B 
-%00000634 
-X%¥00006007 
Ex! 
B 
=x00000SB8 
“X¥00000013 
=X00000634 
Ext 


The analivsis uneovered NO errors. 


ANALY ZE/IMAGE/PATCH NEWMAIL EXE 
$ 
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WRITING PRIVILEGED CODE 


Relevant Sections of DUMP Output for Patched File (Page 1 of 2) 


Duep of file WORKS CMUIZNIEKS.SYSPRG.PRIVCODE INEWNAIL.EXES2 on 1L4-MAY-1992 173013 
20.06 
File ID (756721650) End of file block 37 / Allocated 39 


-Virtusl block nunber 3 (00000003)» $12 (0200) bstes 


00000410 01060005 0054454E 24535953 SYSSNET....20002 000000 
00002230 4C49414D 223A3A3A S4AS4ESF _NETI ii °MAIL=°.. 000010 
66204€52 55544552 20737365 72500A0D ..Press RETURN f 000020 
0000001A QO002ZEZE 2E65726F 6D20726F or morercsccecee 000030 
00000007 00534121 202A2321 00000420 ...188 !ASe..-. 000040 
20206D6F 72462023 20202020 00000444 D... # From 000050 
44202020 20202020 20202020 20202020 D 000060 
64627553 20202020 20202020 20657461 ate SubJ 000070 
00000020 00000454 0000002F 00746365 ect./..sTese see 000080 
ACSS3521 OOOOZAZA 0000048C 00000001 .....eee8teeISUL 000090 
44412120 53413231 212044641 30322120 !20AD 112AS !AD 000000 
49444524 4CAPAL4D 0000049C 00000014 ........MAILSEDI 000080 
21402024 000004BE 00000009 00000054 T.sceccecceed @! 0000C0 
00002253 41212220 22534121 22205341 AS *!AS° *1AS*.. 0000D0 
54535953 24535953 000004CC 00000012 ........-SYSSSYST 0000E0 
0O4D4F43 26544944 45404941 4D3A4DAS EMSMAILEDIT.COM. Q000FO 
6F792072 65746E45 000004E8 00000017 ........Enter wo 000100 
I76F6C6S 622065467 61737365 60207275 ur eessase below 000110 
77205A2F 4C525443 20737365 7250202€ . Press CTRL/Z w 000120 
$443202C 6574656C 7O46D6FSh3 206E46568 hen conmpleter CY 000130 
0000003A 74697571 206F7420 432F4CS2 RL/C to auit?... 000140 
00000003 00000001 00000508 00000045 E.cceccsccsecees 000150 
00000560 00000008 S04C4548 4C49414D HAILHELP....*... 000140 
00000042 4C4A2E3A 50404548 24535953 SYSSHELP!.HLB... 000170 
00001764 0202000C 00000570 0000000D ...epecceesedess 000180 
00001778 00001770 O31D0008 00001760 ‘.ececeePecekees 000190 ee 
7266206C 69616D2C 77454£07 00000000 .....New mail fr 0001A0—————- Qr iginal text 
00000634 00000013 00005341 21205D6F om !ASe+ecec4see 0001B0 a 
000000094000000S4 4€495250 24535953 SYSSPRINT....... 0001C0 still there 
666520571 552120462 6F4A2020 000005CO .... Jod !UW en 0001D0 
21206878/ 45757120 45E46F 2064 4687246574 tered on aueue ! 0001E0 
J250OA0D| 000005D4 O000001E 00004341 AC..ccceeceesePr OOO1FO 
s 
Descriptor 
updated 
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WRITING PRIVILEGED CODE 


Relevant Sections of DUMP Output for Patched File (Page 2 of 2) 


Duar of file WORKS CMUIZNIEKS.SYSPRG.PRIVCODEINEWNAIL.EXE32 on 14-HAY-1982 175018 
20.06 
File ID (756721600) End of file block 37 / Allocated 39 


Virtual block nuaber 4 (00000004)-> S12 (0200) butes 


$6D20726F 66204€S52 $5544552 207373465 ess RETURN for m 000000 
QOO000SFC OCcod0dlA 00002E 2E 2E45726F OPevcecreceoecesvec 000010 
0000000C 4€552123 20534121 202A2321 !¢8 AS S1UL..e. 000020 
66206C49 61602068 6E754A07 00000620 ...-uvunk wail f 000030————— New text added 
00000000 00000000 20534121 206046F72 rom !AS sescesee 000040 
00000000 00000000 00000000 00000000 w.cccereereeeses 000050 
00000000 00000000 00000000 00000000 ...ececsceseeses 000060 
00000000 00000000 00000000 00000000 .csecsscesscnces 000070 
00000000 00000000 00000000 00000000 .eccccseeeevecees 000080 
00000000 00000000 00000000 00000000 ..esscccececesess 000090 
00000000 00000000 00000000 00000000 .crcesesseecceses O000R0 
00000000 00000000 00000000 00000000 w.csescvescceeee 000080 
00000000 00000000 00000000 00000000 .crescccseecveees 000060 
00000000 00000000 00000000 00000000 s.ccecscevcceres 000000 
00000000 00000000 00000000 00000000 .ececesececcsers OO00EO 
00000000 00000000 00000000 00000000 .ecocesesevcsces O000FO 
00000000 00000000 00000000 00000000 wececsecsccreces 000200 
00000000 00000000 00000000 00000000 .ercvecsececsces OOOL10 
90000000 00000000 00000000 00000000 ..cecreccecceces 000120 
00000000 00000000 00000000 00000000 coceseccoeccescs 000130 
00000000 00000000 00000000 00000000 ..ccesecceeccece 000140 
00000000 00000000 00000000 00000000 werccececevccces OOOLSO 
00000000 00000000 00000000 00000000 .eccceccesecceee 000160 
00000000 00000000 00000000 00000000 .cececessesrevces 000170 
00000000 00000000 00000000 00000000 .csssscecscesces 000180 
00000000 00000000 00000000 00000000 wecssesecceesses 000190 
00000000 00000000 00000000 00000000 secesecssecceees OOOLAO 
00000000 00000000 00000000 00000000 wecsesevececeers OOOLBO 
00000000 00000000 00000000 00000000 .ccecsccsceeeces OOO1CO : 
00000000 00000000 00000000 00000000 wcccesescecceves O001D0 
00000000 00000000 00000000 00000000 cececccsecceceve OOOLEOD 
00000000 00000000 00000000 00000000 .scccccceccceces OOOLFO 
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WRITING PRIVILEGED CODE 


Command Procedure Produced by PATCH 


$ TYPE PATCHMAIL.COM 
/ JOURNAL NEWMAIL.~EXE 


SE EC 
-X00000001 
DBD /AS 
“X00000634 
° dun’ 

“kh pa’ 

“il ad 
‘ros ’ 
“tas ° 

Ex! 

D /B 
“X00000634 
“X00000007 
Ex! 

B 
“-x000005B8 
-¥9000000L3 
-x00000634 
Ext 


U 
Ex! 
& 
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USER-WRITTEN SYSTEM SERVICES 


TEST 


Your assignment is to develop a number of programs, and 
user-written system service, that allow a process to declare 
TBIT exception handler. This handler will receive contro 
immediately following a TBIT exception, without executing all o 
the VMS exception dispatching code. 


The TBIT exception (Trace Trap) is generated following an 
instruction for which the Trace Bit (bit 4) is set in th 
Processor Status Word (PSW). This bit is often used by debugger 
(for single stepping instructions), or for performanc 
monitoring/testing. 


You will first have to write a dispatcher that can transfe 
control to a user-written handler following a TBIT exception 
This dispatcher will be patterned after the change mode handler 
that can be declared using the SDCLCMH system service. Thes 
handlers are entered following .an exception (by the hardware 
using vectors in the SCB). They transfer control by looking fo 
an address in a fixed location in Pl space, where the address of 
- user-declared handler may be stored. 


You will then need to write a system service that allows a user t 
declare a TBIT handler on a per=-process basis... The system servic 
will load the handler address in the fixed location in Pl space. 


Finally, you will want to write a program that will restore th 
default system routine (EXESTBIT) for handling TBIT exceptions. . 


This exercise has been split into several parts. You should rea 
the description of all the parts before starting to solve any o 
them. You will probably want to work on some of the parts "out o 
order", and use solutions provided by the instructor for som 
parts to test other parts you are writing. In particular, you ma 
want to solve this exercise in the following order: 

e Do Part 2 first, which involves writing a system service 


e Use Part 5 to build and test the entire application (you ma 
need to modify the command procedure somewhat) 


e Do Part 3 next, since it is simpler than Part 1 

e Then do Part 1 

e Finally do Part 4 

Note that it is quite unlikely that you ae be able to complet 


all five parts in one day. 
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USER-WRITTEN SYSTEM SERVICES 


Overview of Control Flow 


User Program 


Declares T-Bit 
handler using 
system service 
(writes handler 
address in Pl loc.) 


| 

| 

| 

| 

| 

| 

| 

| 

| Set T-Bit in PSW 
| Next instruction --- 
| 

| 

| 

| 

| 

| 


---> Generates T-Bit | | 


Exception ----- > | TBIT--|--+ 


+-- T-Bit Hand. Addr. <------- } JMP @Pl—Loc 


in Pl Loc. 
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USER-WRITTEN SYSTEM SERVICES 


PART 1 - Loading TBIT Dispatcher (LOADTBIT.MAR) 


In order to receive control after a TBIT exception, you first need 


tos: 


e® Allocate a block of nonpaged pool to store the TBIT dispatcher 


Use EXESALONONPAGED 


- Assume TBIT dispatcher block type is DYN _K TBIT 


e Copy the dispatch code to the pool block 


The code must be PIC, since it is copied 


Any register used by the routine must be saved, and later 
restored (perhaps by the user's handler). The supplied 
dispatcher does not use any registers. 


Special considerations include: 


Access mode at which handler entered 


The supplied solution enters the handler in kernel 
mode. It is possible to change access mode (using 
REI) to the mode of the caller, but this takes more 
time, and introduces considerable complexity (probing 
accessibility of stack, so can copy arguments to. that 
stack, etc.). To help prevent a system security 
problem (non-privileged users being able to write and 
execute kernel mode code), the system service will 
check to make sure the establisher of the TBIT handler 
has CMKRNL privilege. 


If no handler specified, transfer control to system 
handler, EXESTBIT 


Handler address will be specified in fixed location in 
Pl space (CTLSGL SITESPEC). That way, separate TBIT 
handlers can be declared by each process in the 
system. 


Transfer control to the TBIT handler with JMP 
instruction 


e Modify the SCB to point to the dispatch code in the allocated 
block for TBIT exceptions . 
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USER-WRITTEN SYSTEM SERVICES 


- SCB address at EXESGL SCB 


- Assume TBIT offset is SscB_L TBIT 


In addition, it is necessary to test for the presence of XDELTA 
(since XDELTA uses the TBIT entry in the SCB). If XDELTA is 
present, you do not want to load your dispatcher. In such a case, 
exit the program and indicate that XDELTA is present. 


e To test for the presence of XDELTA, examine the RPBSV_DEBUG 
bit in the RPBSL_BOOTRS offset in the Restart Parameter Block. 
When set, XDELTA is present. 


r EXESGL_RPB contains the address of the RPB. 


Since you later want to be able to restore the SCB, and deallocate 
the block of nonpaged pool containing the dispatcher, store the 
address of the block in EXESGL SITESPEC. Before using this 
location, however, test to make Sure it is not being used (i.e., 
it contains a #). If it is being used, exit the program. 


@e Note that in order to synchronize access to the 
EXESGL SITESPEC location, you must execute at IPL SYNCH from 
the time you first test the location, to the time it is 
modified. 


The file TBITDEF.MAR contains several macros that may be of use to 
you, including: 


_TBITDEF Defines offsets in TBIT dispatcher block: 
TBIT W SIZE for size of block 
TBIT B TYPE for type of block 
TBIT B CODE code is loaded beginning here 


TBIT L_ HANDLER address of new TBIT dispatcher 
(used for consistency checks) 


_SCBDEF Defines offset of TBIT vector (SCB L_TBIT) in 
SCB. = 
_DYNDEF Defines type code for TBIT dispatcher block 


(DYN_K TBIT). 


The file TBITMSG.MSG defines some specific error codes that you 
may wish to report: 


TBIT VECINUSE Site specific longword. already in use 
TBIT  INSFMEM Nonpaged pool allocation failed 


TBIT XDELTA Dispatcher cannot be installed in 
system with XDELTA 


Sa 


yaOTeIT 
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USER-WRITTEN SYSTEM SERVICES 


LOADTBIT Program Solution (Page 1 of 5) 


Create nes path 


0000 
0000 
0000 
e000 
0000 
6060 
0000 
0000 
06000 
0000 
0000 
0000 
0000 
0600 
0600 
0000 
6000 
0000 
0000 
0000 
6000 
0000 
0000 
0000 
0006 
0000 
0600 
6000 
0000 
6000 
6000 
0000 
0000 
0000 
6000 
0000 
e000 
0000 
e000 
0000 
0000 
0000 
e000 
0000 
ceo 
0000 
0000 
0000 
0000 
0000 
6000 
0000 


BONA MWES WH 


to T8IT handler 


OO e6 60 66 ee Ce 08 Of 90 OO 26 OF UO 89 2O GO OO 00 OF OF OO OO OF GE GO CO OF a6 G5 C8 OF CO C6 Of OF OO 68 98 OD Se a 


o¢ 


etitle loadtbit 
cident "*V02° 


Facility: 


146-MAY-1982 18222243 VAX-11 Macro ¥03~00 


LE—MAY-1982 18205230 WORKSCMUIZNIEKSoSYSPRG.USSII 


LOAOTBEIT.MAR 


Create new path te T8IT handler 


This cede is dynamically patched into the running oxecutive. 
Tt introduces @ new dispatch sethed to handle T8IT exceptions, 
similar to the method used ta handle CHS, CHAU, and 
compatibility wmode exceptions. 


This program is designed to provide an environment for the 
user-eritten system service USSOCLTBIT, also included as 3 part 


of this example. 


Environments 


This progras aust execute in kernel mode in order to srite 


protected locations. 


IPL is raised te 7 CSYNCH) te synchronize 


access to the site specific location EXESGL_ SITESPEC. 


Author: 
Larry Kenah 
Creation Dates 
19 May 1980 
Revisionss 


27 Mar. 1982 


12 June 1980 


Include Files: 


~dyndef 
sipldef 
tosidef 
seoubdef 
ascbdef 
awtbitdet 
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Vik Muiznieks 


Resoved pateh te EXESRUNOUN 
Added synchronization for EXESGL_ SITES PEC 


Have nee exception service routine execute 


in kernel nodes 


sdefine 
tdefine 
sdefine 
sdefine 
sdefine 


siaplifying stack problens. 


type field identifier 

ipl censtants 

fields in PSL 

offsets inte Restart Param: 
system control block offse 


Sthis wacro is defined especially 
3 the set of programs in this exam 


USER-WRITTEN SYSTEM SERVICES 


LOADTBIT Program Solution (Page 2 of 5) 


Create new path to T&IT handler 14—MAY-1982 182225343 VAX~-11 Macro Y¥03-00 Page 2 


add fast dispatch method 
6000 54 
0000 $$ 
0000 56 
6000 $7 
0000 $8 
0000 59 
0000 60 
0000 61 
0000 62 
0000 63 
0000 64 
0000 65 
0000 66 
0000 67 
6000 68 
00606 69 
0000 76 
6060 Ti 
06000 72 
0000 73 
0000 74 
0000 7§ 
0000 76 
0000 77 
0000 78 
6900 79 
09000 80 
6000 61 
0060 &2 
0060 83 
0000 84 
e060 as 
6000 86 
0000 87 
0000 88 
9006 89 
0000 990 
0000 91 
0000 92 
0000 93 
0900 96% 
0000 95 
6900 96 
0000 97 
0900 98 
0000 99 
0000 100 
0000 101 
0900 102 
6000 1023 
0000 1046 
0900 105 
0900 106 


Sd 
oa 


SO G0 ue 8 06 26 OF OF 8 CO 08 OF CF 20 OF 20 oF 90 OF Oo CO 20 6 28 OO G8 CO 2E GE DE GO OF OF OF OC OF C8 OF OS ae SE Of C8 G6 OO Ce C8 9 C8 SH 06 


L4—MAV—1982 182505230 WORKSCMUIZNIERS.SYSPRG.USSILOADTBIC1I) 


esubtitle add fast dispatch nethod 


Functional Oescription: 


The kernel mode procedure beginning at label 108 allocates 

a block of nonpaged peol and copies the new dispatcher for 

T8IT exceptions to that block. The last instruction of the new 
dispatcher is a JHP to the nornal dispatcher so that continuity 
is established. 


If no debugger support sas selected at initialization tine, 
the address of the new dispatcher is simply seved into the 
TBIT vector in the system control bleck. 


It debugger support was selected, then XDELTA has already 
intercepted the system control block vector. This dispatcher 
ceuld steal the SCB veetor contents and JMF te XOELTA as its 
last instruction but that hiesarachy (first this, then XOELTA, 
and finally the normal dispatch path) is out of order. Since 
this nee dispatch path exists on 8 per precess basis, it should 
execute after XOELTA executes. However, due te the difficulty 
in patching XDELTA with its PC relative references to EXESTSIT, 
this program does nothing Cexcept indicate an error) shen 
XOELTA is included in the systes. 


Implicit Outout: 


1. A block ef pool is allocated and anes TEIT exception 
dispatcher is loaded into the bleck of peol. 


2. The new dispatcher is plugged into the executive by sedifying 
the TSIT vector in the SCB if ne XOELTA support sas included 


Completion Codes: 


R0 low bit set #> success 
SStLNCRMAL Noraal Sicdesstar Completion 
RO low bit clear 2> failure 
TOIT. VECINUSE The site specific lenguwerd is already being used 
Tert.. INSFMEM Insufficient dynamic nermory is available. (This 
status is only returned if the current process 


has disabled resource sait mode.) 


TOIT. XOELTA The system included XOELTA at initialization 
time. This program does nothing in this case. 


ss 





USER-WRITTEN SYSTEM SERVICES 


LOADTBIT Program Solution (Page 3 of 5) 


QaorTart 


Create new path te TSIT handler LOoORAV-1982 £8322363 VAX-11 Macre V¥O3~00 
02 add fast dispatch reothed LS-MAY-1982 28805330 WORKS CMUIZNIEKS.SYSPRE.USS3 
66606000 168 oPSect nonshared dats piconoexe, long 
9000 109 
60000029° 6000 2120 ranges waddress leck_begin 
G00000C3° 6004 421 eaddress lock end 
0008 122 
66000000 123 opseet tbit_code piceoshrenesrt 
0000 216 
0e00 60000 115 eontry begins 0 
e0g2 126 seeskrni_s - 
6062 117 rPeutinels0$ 
60% 6011 118 ret 
0012 119 
003C 0012 120 1085 esord *e<er2,r3er4or5> ssave volatile registers 
: 0014 122i Sikeset_s inadrerange sleck pages in working set 
01 50 €8 0025 122 blbs e6,lock begin scontinue on success 
Qe 0028 123 ret 
6029 126 Leck begin: 
0029 125 Setiopl Sipls synch ssynchroenize access to sitespec 
00000000 °GF os 902¢ 126 tst] g*exetgl_sitespec sseo if site specific pointer 
0632 127 3 is already being used 
sc 212 «©0032 128 brequ inuse terror if already loaded 
0034 129 
51 00000000 °GF BO 0034 1306 revi e*exesglrobert Sget address of restart paraneter 
55 36 Al oe 0038 131 novi rebsi_bootrS(ri)d .r$ te5 contains bootstrap flags 
$8 SS 61 €6 OO3F 132 bos terpbtv debugerSexdelta ide nething if XDELTA included 
0043 133 
$1 00060071 2°SF 80 0043 136 nevi &<Chandler_end-handler _start>+12>,F°1 ssize ef bleck incluc 
OO4A 136 3 12 byte heador 
000000956 °GF 16 OO44 136 jsb Q* exesalononpaged 
§3 $0 eS 6050 137 blhe eF0 »snopool : 
- 90000000°GF 52 600 0053 138 revi P2eg*exeSgl_sitespec ssave address of biceck for pregran 
o0Sa 139 : that unloads this dispatcher 
Te oc a2 9€ 0054 1640 aoveb thit_b_code(r2).-Csp) tsave address of beginning of code 
04 8S dOGQSE 163 gushr €4m<¢r2> 3 and address of beginning of bloc 
82 7¢ 46906966 162 elre Cr2ze sclear cut first 8 bytes of header 
82 51 8G 0062 163 Kove FPL Cr2Zze fsave size of bleck for deallocati 
82 72 8F 968 6065 1466 Revzbs *tdyn_k_ thit.Cr2j¢ t$stere bleck type and clesr spare 
6069 16§ : 
8069 166 3 f2 nes peints te the pertien of the block that is to be Loaded sith 
0069 147 $ the nes dispatch codee The address ef the beginning of the block 
0069 1468 3 and the address of the portion of the block shere the code is to be 
0669 149 3: leaded are stored an the stack. No other register contents need to be 
0069 180 3 saved across the 4O0VC3 instruction. 
0069 151 
62 00000081 °EF 0012°8F 23 0669 1$2 acve3 @<Chandler_end-handler_ start) ,handier_starts(r2) 
ac 8a 0673 1§3 peer @4@acr2.r3> srestore address ef beginning of | 
OO75 186 s inte r2 and address of code ints 
$1 00000000 °GF oo 0075 iss revi g*exesSgl_scborl sothersvise, sinply wodify SCB vec: 
28 Al 00co°C3 9— 007C 186 movab witohandler_start(r3)}»sch_}]_tbhit(rl) sload address of nei 
0082 187 3 dispatcher inte SCB 
62 0600°C3 9€ 0082 158 movab thit—handler_start(r3) sthit lL handler(r2) & and also save 
0087 159 2 of the header longwsords in the 
0087 160 setipl #0 ssafe to allows process deletion nm 
50 0000°SF 3C 60084 161 movzul &ss%_hormal,r0 sindicate success 
06 ooBF 162 ret 
6090 163 
0090 164 inuse: ssite specific longweord is alread 
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00000000°3F 


00000000°8F 
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LOADTBIT Program Solution (Page 4 of 5) 


Create new path to TSIT handler 
fast dispatch method 


add 
co 
04 
oo 


06 


ce 
04 


0090 
0097 
OO9A 
6098 
0098 
00a2 
0045 
0046 
O0a6 
0046 
OCA9 
0080 
cos! 


165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 


xdeltas 


ncpools 


movi 
setiol 
ret 


movil 
setipl 
ret 


setiol 
movi 
ret 


L6—MAY—-1982 1862522243 VAX=11 Macro V03-00 Page 4 
L4-9MAV—$1982 18505530 WORKS CMUIZNIEKS.SYSPRGUSSILOADTBIC1) 


@tbit__vecinuser, rd 
eo 


#tbhit _xdeltacrd 
90 


#0 
ethit__insfmen,rd 
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SXOELTA was included at bootstrap time. 
spass back failure code 


sinsufficient nonpaged pool space 


2aoTerxt 
32 
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62 
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LOADTBIT Program Solution (Page 5 of 5) 


Create new path te TSIT handler 


16-MAY—1982 18222243 VAX—-11 Macre VO03~-00 


dispatch cede for T&IT exceptions 1S6—MAV—1982 1823052330 WORKSCMUIZNIEKS.SYSPRG.USSII 

6081 179 e8bttl dispatch code for TSIT exceptions 
608% 1806 
0082 181 see 
e082 182 3 
00821 183 3: Funetioneal Geseription: 
0081 184 3 
608% 185 3 This code is designed to be the first code that executes following 
6081 186 3 a TOIT exception Cif no XOELTA). It checks shether a special TAIT 
008i 187 3 handler has been declared by the process and, if sos dispatches to 
0081 188 3: that dispatcher with only the exception PC and PSL on the stack. 
60081 189 ¢ 
0061 190 3 This design is closely modeled on the existing rapid dispatchers 
0081 192i $ for change mode and compatibility mode exceptions. Such dispatcher: 
6082 192 3 can be accessed quickly sithout the overhead of searching for 
00861 193 3 addresses of condition handlers in exception vectors and in call fr 
0081 194 ¢ Handlers accessed with this sethod are not precedures and can only 
608i 193 ¢ be written in 2 language that allows JSS like linkage. 
0082 196 ¢ 
6082 197 § The method of getting this dispatch schene into the systes inposes 
6081 198 3 several constraints on this code. 
006% 399 3 
0663 200 § 1. The code must be position independent sines it is sinply 
Go81i 201 3 copied inte rnonpaged pool sith neo attenpt at dynasic relocatios 
6081 202 ¢ 
008% 203 ¢ 22 ARy Pegisters used by this routine aust first be seved. 
6081 266 §¢ CNorne is currently used.) In additions 
0082 205 ¢ stack usage must be vatched carefully. 
00823 206 ¢ ; 
008i 207 3 3. Yho initial design of this dispatch sethod transfers control 
6661 268 3 te the user specified dispatcher in kernel wmode. One inzprovemer 
0681 209 §$ which would sles up the dispatching and add stack concerns, 
ooel 236 ¢ would be to change ta the access mode in shich the TSIT 
OGBi 2232 3 exception eccurred. 
Cosi 222 3 
6081 2123 joo 
6081 236 
06082 215 handler start: saddress cf beginning ef block of ¢ 
6GBL 216 s that is Leaded ints nenpaged pool 
COBi 217 
608i 228 t*tbhies saddress sf thit handler 

oo O6B81 219 pushl Getlsgl-sitespec sstore contents on stack 

13 0087 220 beql 108 sift empty, no dispatcher 

17? 0089 2221 jan aC sp) Straensfer to user written dispatch< 
008s 222 

os 0088 223 1083 tstl (spe tclean stack 

17? #6080 224 jap -Q* exes tbit sand transfer to VMS TSIT exceptior 
00c3 225 
90c3 226 handler_end: send ef cede that is being loaded 
00c3 227 3 inte nonpaged pool 
o0c3 228 Lock lends 
0cc3 229 
00c3 230 eond begin 
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TBITDEF.MAR File 


TEITOEF. MAR 
This file contzins all symbolic definitions for the fast TSIT 
exception dispatcher. 


1. The _tbitde?s wacre is included in the leader and unloader 
progress te define the offsets into the thit block. 


2. The csebdef and _dyndef escros are also included in both 
the loader end unloader prograns. 


emzero _dyndef tdefine type field identifier 
dyn _k_ tbhit = *X%80 - 1 suse largest positive integer 

eende _dyndef . 
emacrea _scbhdef sdefine systen control block vectors 
scb lL tbit = “X28 sTSIT exception 


eendn osebdef 


emacre§ _thitdef sdefine offsets inte tbit block 
Sdefini thit 

sdef *bit_lihandler saddeess cf nes TEIT dispatcher 
oblkl 1 

Sdef thit_luspare severently not used 

eblki 1 

sdef thit_s size tsize of sllecated block 

eblks 1 

Sdet thit biotype seode used by SOA et al. 

eblkb 1 

eblkb 1 3 spare 

Sdeoft thitbicode scode is loaded beginning. at this point 


Sdefend thit 
eends awtbitdef 


ay 
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TBITMSG.MSG File 


TEX TMSCOMSG 


This file defines specific error messages for the 
TIT dispatching preograss 


otitle bit handler Alternate TEIT dispatcher 

oe facility TIT» i/prefixsTBIT_ 

severity SEVERE 

VECINUSE €Site specific longuord already in use> 

INSFREM <CNonpaged pool aliocation failed> 

XOELTA <Bispatcher cannet be installed in system with XOELTAD 
NOWANCLER “Site specific lengword contains ne data block address> 
SBADHANOLR <Cata in block is inconsistent with LEOAOTBEIT input> 
onde 
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USER-WRITTEN SYSTEM SERVICES 


PART 2 - User-Written System Service To Declare TBIT Handler 
(TBITDISP.MAR) 


In order to incorporate. a system service to-declare a fTBIT 
handler, you will first need to: 
1. Copy SYSSEXAMPLES:USSDISP.MAR to your directory. 


2. Edit that file to remove the sample system services, the 
Supplied rundown routine, and the executive mode dispatcher. 


3. Add a DEFINE SERVICE macro for your system service: 
@e Call it USSDCLTBIT 
e You want 2 parameters: 


- First is address of TBIT handler to be established (or 
@ to disable previous handler) 


- Second is address of longword to receive previous 
handler address, if any (this parameter is optional) 
e Service should execute in kernel mode 
4. Include the offset to a RUNDOWN routine in the privileged 
library vector 
5. Add code for USSDCLTBIT system service: 
e Test for CMKRNL privilege, since handler will execute in 
kernel mode (unless in Part 1 your dispatcher changed 


access mode). 


e Could test for presence of TBIT dispatcher loaded in Part 
1. 


- Not really necessary since VMS does not use 
CTLSGL_SITESPEC location. 


- However, TBIT handler declared will never be entered 
for a TBIT exception until program from Part 1 is run 
to establish TBIT dispatcher. 


e If user requested address of previous handler, make sure 
user can write to the address specified. 
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Copy address of handler being declared to | location 


CTLSGL SITESPEC. 


code for RUNDOWN routine 


Routine entered at image rundown time (with 
instruction) 


6 


Executes in kernel mode 


Should clear CTLSGL_ SITESPEC location, so next image 
effected by handler declared in previous image 


Should exit with RSB instruction 
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TBITDISP.MAR File (Page 1 of 6) 


Declare T8IT Handler 16-RMAV21982 18322556 VAX—-11 Macre VO3-00 Page 1 
LS6—MAV-19B2 17554552 WORKSCMUIZNIEKS.SYSPRG.USSITBEITOISC1) 
0000 > ar TBITOISP. MAR 
0000 2% 
0600 303 This file contains both an edited user-sritten systen service 
0000 63 dispatcher Cfrom SYSSEXAMPLESSUSSOISP. MAR) and the systen 
0000 33 service code itself for the load TBEIT dispatcher system service. 
oca0 6 3 
6000 7 3 Macro Oefinitions 
0000 8 3 
0000 93 OEFINE_ SERVICE - A macro to make the appropriate entries in several 
0000 10 3 different PSECTs required to define an EXEC or KERNEL 
0000 > aay mode service. These include the transfer vector, 
0609 12 3 the case table for dispatching, and a table containing 
0000 133 the nuaber of reauired arguaents. 
0000 143 
0006 1$ 3 OEFINE SERVICE Nawe,Nuaber_of_ Arguments, Mode 
0000 16 3 
0000 i? eMACRG DEFINE SERVICE .NAME,NARG2O -MODERKERNEL 
000600 18 oPSECY SSSTRANSFER_ VECTOR, PAGE ,NOWRT EXE, PIC 
6000 19 eALIGN QUAD s Align entry points fer speed and style 
0000 20 oe TRANSFER WARE 3 Define name as universal sysbol for entry 
0000 21 oMASK NAME 3 Use entry sask defined in wnain routine 
0000 22 olf ION MODE, KERNEL 
0000 23 CHAK BCKCODE_SASECKERNEL_COUNTERD $3 Change to kernel node and execute 
0060 26 RET > Return : 
6000 2s KEQINEL _ COUNTER SKERNEL COUNTER? $ Advance counter 
0600 26 
0000 2? ePSECT KEPNEL_NARGe SYTE,NOWRY EXE. PIC 
6060 28 oBYTE NARG s SGefine number of required arguaeents 
6006 29 
09009 30 ePSECT USER_KERNEL_DOISP1L,SYTE NOWRYT EXE, PIC 
0000 31 2 89RO ZeNAME~KCASE BASE 3 Make entry in kernel mode CASE table 
0000 32 
0000 33 oTFF 
0060 34 CHME SCECOCE _BASESEXEC COUNTER? 3 Change to executive sade and execute 
0060 3s RET 3 Return 
oo0o 36 EXEC _COUNTERZEXEC COUNTERS? 3 Advance counter 
0000 37 
0000 38 oPSECT EXEC_NARG, SYTE NOWRT EXE, PIC 
0000 29 efYTE NARG : Oefine number of required arguaents 
0000 40 
0000 al ePSECT USER_EXEC_DISPL, BYTE sNOWRT ,EXE, PIC 
0000 42 e WORD Z+NAME—ECASE_ BASE 3 Make entry in exec mode CASE table 
0000 43 eENOC : 
ocos as eENOM DEFINE SERVICE H 
0000 45 3% 
06000 46 3 Equated Synabols 
0000 a7 3 
0000 “8 
coco 49 SPHODEF 3 Define process header offsets 
0089 £0 SPLVOEF 3 Define PLY offsets and values 
0006 St SPROEF 3 Define precessor register nuabers 
6900 $23 
0000 $3 3 Initialize counters for change mode dispatching codes 
0000 $43 . 
00000000 909000 $$ KERNEL _COUNTER=0 3 Kernel code counter 
60000000 0000 $6 EXEC _COUNTER#=0 3 Exec code counter 
0000 57 


4} 
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TBITDISP.MAR File (Page 2 of 6) 


SSOCLT8IT 
12 


60066 

0600 

6000 
00000500 

00606 

6060 
60000000 
6000 
6060 
0000 
8066 
6060 
0002 
0002 
6002 
2002 
0062 
0002 
0002 
0062 
0002 
0062 
6962 
6062 
0602 
0002 
0062 
C002 
6062 
06000600 
0000 
0000 
0006 
6008 
occ 
9020 
6G1¢ 
6018 
801¢ 


FEFFFEOC 
FFEFFEOC 


666000062 
oo000600° 
oo00060s” 
60000006 
000060026" 
ooeoecce 
669000006 
8060060606 


Seclare TSIT Kandler 


VAX-11 Macro V03-00 
WORK SCMUIZNIEKS.SYSPRG.USSIT 


14—MAY21962 182322256 
L4-MAVO1982 172542552 


8 Oen Storage 
oPSECT KERNEL NARG, SYTE »NOWRT EXE, PIC 
RE RNEL LNARGS 3 Sase of byte table containing the 
$ musber ef required argurents. 
oPSECT EXEC _NARG, BVTE NOWRT EXE PIC 
EXEC NORGE 3 Base of byte table containing the 
¢ number of required arguments. 
DEFINE SERVICE USSOCLTBIT,2,XERNEL 3 Declare THIT systen servi 
s The base values used to generate the dispatching codes should be negative 
+ wsee services and aust be chosen to avoid overlap sith any other privileg 
3 shareable images that will be used concurrently. Yheir definition is 
3: deferred to this point in the assembly to cause their use in the precedin 
$ macro calls to be forward references that guarantee the size of the chang 
’ mode instructions to be four bytes. This satisfies an asasuaption that is 
$ wade by for services that have to wait and be retried. The PC for retryi 
s the change rode instruction that invokes the service is assumed to be 4 & 
s less than that saved in the change mode exception frame. Of course,e the 
3 service routine determines shether this is possible. : 
. 
KC ODE, BASEs-506 3 Base CHEK code value for these sa 
ECOOE, BASE=-500 ¢ Base CHME code value for these se 
oPSECT USER SERVICES, PAGE, VEC, PIC. NOWRT, EXE 
o LONG PLYSC_TY®_Cmod 3 Set type of vector to change node 
eLONG SYSSK_VERSION 3 Identify systes version 
eb ONG KERNEL _DISPATCH-. + Offset te kernel mode dispatcher 
eL ONG 9 3 Offset to executive sode dispatch 
oL GONG RUNDOWN@. 3 Offset te RUNDOWN routine 
oL ONG 8 3 Reserved. 
ob ONG 6 3 Ne RMS dispatcher 
LONG 0 3 Address check =< PIC image 
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TBITDISP.MAR File (Page 3 of 6) 


itt Declare TS8IT Kandler 26—-MAY-1982 18322256 VAX-i1 Macro VO3-00 Page 3 
Kernel Mode Oispatcher 146—MAY-1982 172542552 WORKSCMUIZNIEKS SYSPRG.USSITBEITOISC1) 
0020 98 oSBTTL Kernel Mode Dispatcher 
0020 99 soo 
0020 100 3 Input Parameters: 
. 0020 16% $ 
00206 102 ¢ CSP) = Return address if bad change mode value 
0020 103 ¢ 
0020 106 $ RO = Change node argument value. 
0020 108 ¢$ 
0020 106 ¢ R& = Current PCB Address. CTherefore 24 sust be specified in all 
0020 107 ¢$ eegister save masks for kernel routines.) 
0020 108 3: 
0020 109 $ AP = Argument pointer existing shen the change 
0020 110 ¢$ mede instruction was executed. 
6020 >> Sa, 
6020 312 3 FP - Address of mininal call frase to exit 
6020 113 3 the change mode dispatcher and return to 
0020 116 3 the original node. 
6020 118 tee 
60000000 116 oPSECT USER _KERNEL_OISPOS BYTE sNOWRT EXE PIC 
0000 117 KACCVIOs $ Kernel saecess violation 
50 0000°S8F 3¢€ 6 9000 128 MOVZWL 8SSS_ACCYIO,RO 3 Set access vielation status code 
0 0005 119 RET 3 and return 
0006 120 KINSFAaRG:s . $ Reenel insufficient argurents. 
$0 0000°8F 3€ 46000560=121% MOVIWL #SSS_LINSFARG.RO 3 Set status code and 
0% 0008 122 RET 3: return 
es o0o0c 123 KNOTME: RS8 3 8S$8 to forward request 
0009 126 
9000 125 KERNEL_OISPATCHs: s Entry to dispatcher 
$1 O1FS CO 9—& 0000 126 MOvAS W°-KCODE_BASEC ROD, RL 3 Nerwalize dispatch code value 
. BB 19 0012 127 8LSS KNOT ME 3 Sranch if code value too los 
iB | $1 B81 0014 128 CuPy R1, #KERQNEL COUNTER 3 Check high limit 
*3 1€ oOoi7 129 scecu KNOTHE : Seanch if out of range 
0019 130 3 
0019 131 ¢ The dispatch code has now been verified as being Handled by this dispatcher, 
6019 132 $3 now the ergqument list sill be probed and the required number of srgueents 
0019 123 3 verified. 
0019 134 3 
$1 QO0O°CF4l 94 0019 125 MOVISL WAKERNEL_NARGORII,RL 2 Get required argument count 
$1 Q0000004 9F4i OE OOF 136 MOVAL @84CR1T3,R1 3 Compute byte count including arg count 
0027 137 IFNGRO R2-CAP),KACCVIG $ Branch if arglist not readable 
OlLFS4°CFS0 6¢ 92 0020 138 Cues CAP) WA CKRERNEL _NARG-KCODE_BASEDCROI] $ Check for required nunaber 
02 1F 0033 139 B8LSSU KINSFARG - of arguaents 
$0 Ae 90035 140 CaASEw RO—- 3 Case on change sode 
0037 141 - $ argquaent value 
0037 142 @KCODE_B8ASE,—- 3 Sase value 
00 FEeQc 6F 0037 143 SCRERNEL_COUNTER=-1> s Lieit value Cnumber of entries) 
0038 144 KCASE_SASES 3 Case table base address for OEFINE_ SERVICE 
0038 145 3 
0038 146 3 Case table entries are made in the PSECT USER_KERNEL_DISPI by 
0038 147 3 invocations of the OEFINE_SERVICE macro. The three PSECTS, 
0038 148 3 USER_KERNEL_OISP0,1,2 eill be abutted in lexical order at link-time. 
0038 149 3 
00000000 180 oPSECT USER KERNEL _OISP2Z,SYTE,NOWRT, EXE, PIC 
es 6000 1§1 RS8 ¢ Return to reject out af 
ood: 1$2 $ range value 
0061 1§3 etitle ussdeltbit Declare TBIT Handler 
Oeet 154 cident "voz 
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TBITDISP.MAR File (Page 4 of 6) 


SSOCLTSIT Declare TEIT Handler 14-MAY-1982 18222356 VAX-11 Macro V03~00 
02 Kernel Mode Dispatcher L6-MAVYO1982 17SS6SS52 WORKSOCRUIZNIEKS.SYSPRE.USSI 

6603 155 

8002 156 

0001 1S7 see 

0001 1$8 3 

0003 159 3 Facility: 

6001 160 3 

6001 161 5 This precedure allows a privileged precess to declare ws FEIT 

6001 162 3 handler that is accessed quickly, bypassing the usual VHS 

6002 163 3 exception dispatch mechanisa. The procedure can either 

o00% 166 3 be called through the SYSSCARRKL system service of installed 

0001 165 ¢ as 2 user written systexw service. 

0co1 166 3). 

0601 167 3 Environnent: 

0001 168 $ 

6601 169 $ Kernel mode procedure that alters the CTILSGL_SITESPEC location. 

oeo1 176 3 

0001 171 3) Authors 

0061 172 3 

0e01 173 3 Larry Kenahk 

06023 174@ 3 

6061 175 3: Creation Bates 

0602 176 3 

0661 177 3 & August 1980 

0001 178 ¢ . 

e061 17S 3 Revisions’ 

66023 180 ¢ : 

G061 182 8s Vik Muiznieks 8 Ape 1982 

Ceo 2182 ¢ 

6003 263 ¢ Added RUNCOWN routines and updated privileged library 

6002 184 3 vector 

0G01 18S ¢ 

0001 186 Synchronized access to EXESGL SITESPEC 

0001 L&T 3<- ° 

0001 188 ¢$ 

Gog? 189 : Include Files: 

000% 190 3: 

e002 19% 

ooot 192 

GOG% 193 Sprvdef sdefine privilege bits 

60Gi 194 Spebdef sdefine offsets into PCB 

0001 195 

9001 196 3 

6001 197 $ Argument List Offset Oefinitions 

0001 198 3; 

0002 199 

60600004 0002 260 addres = 4 sAddress of new TSIT handler 
go00c0q0gdgs 0001 201 pervind = 8 sAddress of longwserd to receive 
0063 202 : old handler address 
00061 203 
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TBITDISP.MAR File (Page 5 of 6) 


Declare TEIT Handler 24—MAY-1982 18222256 VAX~-11 Macro V¥03-00 Page 5 
Oeclare T8IT Kandler L6-MAY-1982 17254352 WORKSCHUIZNIEKS<SYSPRG.USSITBITOIS(1) 
0001 205 esubtitle Declare T8IT Handler 
0002 206 
0001 207 3¢ 
0001 208 3: This precedure alloss a process to specify a TBIT handler that «ill 
0001 209 3 immediately receive cantrol shen a TBIT exception occurs, bypassing 
0001 210 3 the normal VAS exception dispatching sechanisa. 
0001 221 3 . 
0001 212 3: To avoid some tricky stack problems, the initial teplesentation of this 
0001 213 3 service executes in kernel] wmodeo For this reason, the procedure can 
6001 214 3 either be called by wesns of the Change Mode to Kernel system service, 
0001 215 3 of the procedure can be made a part of a privileged shareable inage,s 
0001 216 $ accessed es 8 user eritten system service. 
0001 217 ¢ 
0001 218 $ Input Paraweterss 
00602 229 3 
6001 220 ¢$ addres ao) Address of handler that is being declared 
0001 22% 3 
0001 222 3 epevhnd(an) Address of lenguerd that sill receive the 
Oaot 223 3 address of @ previous handler, if one existed. 
0001 226 §¢ 
0001 225 3 Implicit Insut: 
0002 226 $ 
0001 227 3 rs PCB address: of caller 
0002 228 3 
0002 229 3: etlsgli_sitespec Location in shichk to store handler address. 
0001 230 3; The syabol is defined Cand unused) by VAS. 
0001 231 3 
0001 232 ¢ Nete that this procedure does net test shether the fast Tat 
60001 233 3; - dispatcher has been installed. Such a test could easily be added 
0001 234 $ te this service. 
0002 235 3 
0001 236 3 Ne hare is done if the P1 space lecation is laaded without 
0061 237 3 the dispatcher being installed because VMS does not use 
0001 238 ¢$ the Pi space location in question. Heosever, the TEIT handler 
0002 239 ¢ declared eith this procedure aill never be called until the TSIT 
0002 240 3 dispatcher is installed. 
0001 241 $ * 
oo0L 242 3 Implicit Output: 
6001 243 3: . 
0001 246 ¢ etl$gl_sitespec is loaded sith the address of the new handler. 
0001 2465 3 
0001 246 3 Status Codes: 
0001 247 $ 
e002 248 3 20 les bit set implies success. 
oool 249 ¢ 
ood1 280 ; RO low bit clear inplies an error. 
0001 282 3 
0001 282 3 SSs_accyta Previous handler address cannot be 
0001 283 3 written by caller’s access node 
0001 256 3 
0001 255 3 SSS_NCPRIV The caller does not have CMKRNL privilege 
0001 256 s- 
0001 257 
00000000 253 eosect thit_code picsshrenowrt 
0000 259 
6cic 0000 260 eantry ussdcltbit,*atr2,r3.r4> 
0002 261 
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SSOCLT&IT 
92 


$1 os ac 
oc 


62 00000060°GF 
66000000 °GF G4 ac 
$0 0000°8F 


56 0060°8F 


$0 0000°8F 


000600006°GF 
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TBITDISP.MAR File (Page 6 of 6) 


Jeclare TSIY Handler 
Oeclare TSIT Handler 


o6 
13 


60 
6 
3¢ 
04 


3¢ 
0 


3¢ 
06 


06 
85 


0062 
0007 
00608 
6000 
6013 
GOLA 
0022 
0027 
0028 
00286 
0028 
0620 
O62E 
OG2E 
OO2E 
0633 
6634 
0034 
6636 
6636 
0034 
6634 
06346 
0036 
0036 
0034 
6638 


262 
263 
266 
265 
265 
267 
268 
263 
270 
271 
272 
273 
274 
2v5 
276 
277 
278 
279 
288 
2823 
282 
283 
284 
285 
286 
287 
288 


ifnpeiv cakerni pnepriv 


mowl 
beal 


ifnosrt 


novi 
10$8 movl 


aovzel 


ret 


Nneprivs 


novzel 


ret 
accvios: 


movz 
ret 


code 


RUNO GUNS 
elrl 
esb 
cond 


el 


146-NAV~1962 18522356 VAX—-11 Macro VO3-00 
L6$MAV 1982 173546352 WORKS CMUIZNIEKS ~SYSPRGOUSS) 


Sdees caller have CMKRNL privilege 


prvindCap).rl Sgeot previous handler address 
168 sskio if none 
84,C€rid,acevic sis it accessible? 


Gretlistgl_ sitespec,(rid cOK, se write ald centents 
addres(Can) -G*ctlsgi_sitespec 3 and store new handler eddre 


@ss%_nornel,r0 sindicate success 

sand return 
@ss8_nopriv,rd sealler dees net have CMKRNL 
§ss$_acevio,rd sperevious handier address inaccess 


This entry point is called at image rundown time, by the rundown 


o in KERNEL mode. Control is transferred via JS8. 
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The reutine clears the location containing the TSIT handler 
address, so the next image can start "fresh*. 


¢ Entered via JS8 
G*etl$gl_sitespec : Clese handler address for next i 
3 eetuen to rundosn code 


USER-WRITTEN SYSTEM SERVICES 


PART 3 ~ Unloading TBIT Handler And Restoring SCB 
(REMOVTBIT.MAR) 
This program needs to perform the following operations: 
1. Include the DYNDEF and _SCBDEF macros discussed in Part l. 
2. Test that the loader program has been run: 
e Avoid synchronization problems by running at IPL SYNCH 
@e Examine EXESGL SITESPEC to find TBIT dispatcher address 
@e Check type field of TBIT block for consistency. Should 
find DYN K_TBIT. 
3. Restore SCB to original state 
e Use EXESGL SCB as SCB base address 
e Use SCB_L TBIT as offset to TBIT vector 


e Replace TBIT vector with address of EXESTBIT 


4.  Deallocate TBIT dispatcher block 
5. Clear EXESGL SITESPEC 


You may want to use the following messages defined in the 
TBITMSG.MSG file: 


TBIT NOHANDLER Site specific longword contains no data 
block address 


TBIT  BADHANDLR Data in block is inconsistent with 
LOADTBIT input 


47 








USER-WRITTEN SYSTEM SERVICES 


REMOVTBIT.MAR File (Page 1 of 3) 


2MOVE TAIT Remove special T8IT exception handler 14—MAY>2982 18222350 VAX—-11 Macro VG3-00 

12 ZT—MAR—1982 17SLOS13 WORKS CMUIZNIEKS.SYSPRG.US 
0000 1 3: REMOVTSIT.MAR 
0000 2 : 
0000 3 etitle remove _ thit Remeve special TBIY exception handler 
0060 4 cident *v02° 
6000 § 
0000 - 6 : 
6000 T Soe 
0000 8s 
0000 93 Facility: 
00060 216 3 
0000 2263 This program unloads the special TSIT exception handler that was 
0000 12 3 leaded by the LOADTBSIT progras. 
0600 13 $ 
0000 16 3 Environment: 
0000 1$ 3 
0600 26 $ This program wust exceute in kernel mode in order to srite 
0660 17 § protected locations. 
0600 18 3 
0600 19 8 
0000 20 ¢ Authors’ 
6060 2i 3 
6000 22 3 Larry Kenah 
0660 23 3 
66600 2 3 Creation Bates 
6000 28 3 
6000 26 § 19 Key 1986 
0000 27 3 
0060 28 3 
0600 29 3 Revisions’ 
6000 30 $3 
0000 32 3 Vik Muiznieks 27-May-1982 
6000 32 3 
$060 33 3 Remove patches to SYSRUNGYUN 
60660 36 3 Add synchronization fer EXESGL_ SITESPEC 
0000 35 ¢ 
6000 | 36 j<- 
660006 37 3 
6600 38 $ YInelude Files: 
0000 39 3 
00606 46 
o000 41 _¢yndef sdefine type fleid identifier 
0000 42 Sinpldef sdefine inl constants 
60006 43 Srobdef sdetine offsets into Restart Par 
0000 ry) -scbhde ft sdefine systesw control block off 
0000 as —tbitdef sthis rmacro is defined especiall 
0600 46 3 the set of programs in this ex 
0000 47 
0000 48 3 
0000 49 3 tLecal Symbols: 
0000 so 3 
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REMOVTBIT.MAR File (Page 2 of 3) 


Remove special TSIT exception handier 146—MAY-1982 18222550 VAX-11 Macro V¥O3-00 Page 2 


Remove special] TSIT dispatcher 


0060 $2 
0000 $53 
0000 54 
0000 ss 
0660 56 
0000 Ss? 
0000 $8 
0000 59 
0000 60 
0000 61 
90090 62 
0060 63 
0000 64 
6000 6$ 
0000 66 
0060 67 
6600 68 
0060 69 
0000 70 
0000 71 
0000 72 
0000 73 
06006 74 
0000 1$ 
0000 76 
0006 77 
0000 78 
0000 79 
0000 80 
6000 81 
0009 62 
0000 83 
0000 84 
0000 85 
0000 86 
0000 8? 
60000000 88 
0000 89 
00000029° 06000 90 
COOCDOTF’ 0004 91 
0008 92 
00000000 93 
0000 94 
0000 66000 95 
0902 96 
0002 97 

0% 0011 $8 
0012 $9 
093C 0022 100 
0014 101 

€8 0025 102 
04 0028 103 
0029 104 
0029 105 
oo2c 106 

06 002C 107 
13 0033 108 


34 


2T—MAR—-198B2 LTS1OSL3 WORKSCMUIZNIEKS .SYSPRG.USSIREMOVTBC1) 


esubtitle Remove special TSIT dispatcher 


. 2 
° 


Functional Oescription 


The kernel mode procedure beginning at sddress 108 lecates the 
address of the new dispatchers, perforss a consistency check, and 
rermoves the handler from the systen. 


1. The SCB entry for the TBIT exception is restored to 
its original contents, the address of the routine EXESTBIT. 


2e The block of nonpaged pool that held the dispatcher and 
. other information is deallocated. 


Completion Codes: 
RO los bit set => success 
SSS_NORMAL Nerrmal Successful Campletion 
RO lowe bit clear «> failure 
TEIT__NOHANOLER There is no handler currently in the systea. 
This error occurs if the site specific lLongsord 
contains & zeroes 
TBIT__SADMANOLR The data block pointed te by EXESGL_SITESPEC 
contains an inconsistency. This is either the 
erong value in the type fields or a 


handler address that dges not agree sith the 
the contents of the SCB vector. 


SO CF C6 C5 C8 Ge Oc CO 68 OF 08 Ge CO SO GE C8 GO OF CO CO Cf CO ae C8 Of we Ff CF Se Ce of oO 08 


epsect nonshared_ data pic,noexeslong 


range: .address lock begin 


eaddress lock end 
epsect tbit_code pic, sher,nourt 
eentry remove _thit,i 
genkrni_s - 
routinsi0$ 
ret 
10% esord Aacr2er3ersyrS> ssave volatile registers 
Slkueset_s inadr=range sleck pages in sorking set 
blbs PO slock_begin scontinue on success 
ret 
lock begin: 
setipl #ipl$_ synch seprevent process deletion in the widdle 
ssynchronize access to EXESGL SITESPEC 
aovl g“*exesol_sitespecer2 sget address of tbhit block. 
beql nohandler 


49 


REMOVE _TSIT 
102 
_ $3 
28 ai 
$0 
50 


7° SF Oa A2 
38 
00600000°GF 
62 28 Ai 

2e 


00000000°GF 
$6 $2 


80000000 °GF 
60000000 “GF 
56 0000°8F 


00000000°8F 


00000000°8F 
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Remove special TSIT exception handler 146-MAY-1982 18822350 VAX—-11 Macro v03-00 
Remove special T8IT dispatcher 


91 
12 
09 
02% 
12 


DE 
00 


16 
o6 


3c 
O46 


oa 
04 
oo 
04 


Z2THAR-1982 17210213 WORKS CMUIINIEKS.SYSPRG.USS 


0035 169. erpb Whit b typeCr2),edyn_k_ thit tCorrect type? 

00348 110 brneau inconsistent 

003¢ 121 movi Qrexesgl_scborl Sget SCB address 

00463 112 enel seb_l_ tbitCrid othit_lhandler€r2) care handler addresses 
0047 123 bneau incensistent 

0049 116 

0049 115 3 Consistency checks have succeeded. Now reneve the handler from the sys 
0069 116 

0049 117 noval o*exes$tbit,scbh_ l_thit(ri) sSingle instruction requires 
0051 118 $ neo synchronization. 

0051 119 novi e2,r0 Sget tbhit bleck address for 
0056 120 2 deallocation routine 

Coss 121 jsb g* exes$deanonpsged 

QOSA 122 eleri g*exetgl_sitespec sclear site specific vector 
6060 123 setiopl #06 20K tea be deleted nos 

0063 124 movzul tss%_ normal,r0 

0068 125 ret 

0069 126 

0069 127 nohandler: revi STBIT__NOHANOLER FO 

6070 128 setipl #0 

0073 129 ret 

0074 136 

0076 131 inconsistent: revi STBIT__BSAGKRANOLR or 

ooTs 132 setipl #6 

GOTE 133 Feet 

OOTF 136 lock wend: 

ooTe 135 

OOTe 136 eornd Pereve tbhit 
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USER-WRITTEN SYSTEM SERVICES 
PART 4 - Test Programs (TESTTBIT.MAR and TESTTBIT2.MAR) 
Write a program that tests the USSDCLTBIT system service as 
follows: 
1. Assign a channel to the terminal. 
2. Display the contents of a location initially set blank. 


3. Call the USSDCLTBIT system service, specifying a TBIT handler. 


e The handler should place some new data in the previously 
printed (blank) locations before exiting 


e Give some thought to which instruction should be used _ to 
exit handler 


4. Set the T-Bit (bit 4) in the PSW (Hint: BISPSW instruction) 
5. Issue a NOP instruction to cause the TBIT exception 


e The handler established above should be entered 


6. Display the contents of the modified locatign to verify that 
the handler was entered. 


The TESTTBIT2 program should be the same as the TESTTBIT program, 
except the call to the USSDCLTBIT system service should be 
removed. Enough spare bytes should be inserted so that the fTBIT 
handler previously declared by the TESTTBIT program is still at 
the same virtual address (even though it should never be called). 


If the RUNDOWN routine of the USSDCLTBIT system service has 
executed properly, when you run TESTTBIT2 you should get a TBIT 
error message. However, if you have not correctly cleared the 
CTLSGL_ SITESPEC location as part of the RUNDOWN routine, the TBIT 
exception will be handled properly by the TBIT handler, and _ no 
error message will be displayed. 
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MATIN 


6F 63 


20 66 
69 74 


43 4& 


24 


6F 
61 


53 
6c 


73 


20 


$3 
6C¢ 


79 


73 
&F 


$5 
61 


73 


74 
6C 


20 
63 


00000000 °GF 


00000033°EF 
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TESTTBIT.MAR File. 


146-MAY°1962 183222337 VAX-11 Macro V03-00 
Z2T—MAR-1982 16507508 WORKSCMUIZNIEKS.SYSPRG.US 


0000 1 TESTTBIT.MAR 
6000 2 
0000 33 This program tests the fast TEIT dispatcher using the 
6000 6 3 USSOCLTBIT user-eritten syste service. 
0066 5 
6000 6 3 NOTE -= The LOACTSIT program aust be run before this 
6000 7 3 erogrsn will sork 
6009 8 
00006060 9 epsect nonshared dats pic, noexe, long 
0000 10 . 
00000008°010E0000° 0000 112 tera: eascid /sysSconnand/ ¢ to communicate with terninal 
6% 6€ 61 60 60 OG00€ 
0000 60613 12 ttchans .eord 0 
00125 13 
6E 65 74 6E 6F 43 C015 16 asgs eascii /Contents ef dummy lecation is / 
20 79 6C 60 75 64 06021 
20 73 69 20 6E€ 6F 0020 ; 
20 20 20 26 6033 15 dummy: .ascii / r 3 four blank bytes initially 
2& 0037 16 oasehi 407 
00000023 0038 17 mslen = . - asg 
0038 18 
66 6F 20 76 75 4F 6038 19 outs easeii /Out of USSOCLTBIT calls 
20 $4 49 42 56 46C 0066 
OC000016 O04E 20 outlen = . = out 
CO4E 23 . 
oeceegce O04E 22 prevs elong 0 $ Peceive previous handier address 
6052 23 aeglists $ argument list fer USSOCLTBIT call 
a6000002 6052 26 elerg 2 $ 2 parameters 
OOQCOOAT” 0056 2s oaddress neshand $ eddress of new handler 
COCOCaSE” 0054 26 eaddress prev 3 address ef eld handler returned 
OSE 27 
800000000 23 epsect cede pics shr, nowert 
oe0c acco 29 starts .veord Q $ save no registers 
0002 30 Sassign_s chanzttchan, devnanzters 
01 56 E€8 0037 31 blbs PO. 3% 
0& 601A 320CO ret 
6018 33 S63 Seice_s Chanzttchan, funcedios eritevblk,slzasg,p2=stuslen, 942832 
o1 50 €8 06062 36 blbs r6,i0s : 
04 6065 35 Pet 
Q6000CS2°EF Fa 8066 36 1083 eatlig arglist., g*ussdeltbit 3 establish TBIT handler 
oi $0 Es 6051 37 bibs e0. 208 
06 0056 38 Rey 
0055 39 2088 Saiow_s chansttchan, funcz#ios_writevblk »alzout sp2stoutlen,p42832 
16 ss gore 40 bisese #€*x10 2 set T-bit in mask 
OL OOTE 1 noe 3 causes t-bit exception to haopen 
OOTF 42 Sqiow_s chanzttchan, funczsiot sritevolk,plzesgsp2ztaslensyp42832 
0% 00846 43 Ret 
CoAT 46 
OCA7 46 3 TOIT handler --= indicates being invoked by updating 
OO0aT 46 3 lecation that:is part of msg buffer 
OOAT7 47 
00a7 45 NEWHANDS 3 entered via dispatch through SC8 
00000038°EF co 004a7 49 anovl out, durmny $ update value in field 
02 0082 50 eet 3 dismiss T-SIT exception 
co83 Si 
0083 $2 eend start 
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73 


290 
63 


$3 
6c 


79 


73 
6F 


$5 
62 


73 


76 
6c 


20 
63 


6E 
20 
20 


66 
29 


64 


65 
79 
73 


6F 
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TESTTBIT2.MAR File (Page 1 of 2) 


0009 

0000 

0060 

0000 

0000 

6000 

0000 

0000 

0000 

0000 

0000 

06000009 

6000 

00000008 “O10£6000" 9000 
6E 62 60 60 O00E 
e986 68023 

6015 

74 66 6F 63 0035 
60 60 75 64 0622 
69 20 6E 6F C0620 
20 20 20 20 0033 
2€ 0037 

060000023 0638 
0038 

20 76 75 4F 0038 
£9 462 S@ 4C 0066 
06000016 06€ 
OO4E 

00006000 d04€ 
0052 

000000G2 0052 
ococdoaT® 0054 
OOODCOSE” OOSA 
Qose 

eo0co00ce 

e000 9690 

0002 

Q1 SO €8 0017 
O& OO1A 

0018 

01 50 €8 00462 
0% 0045 

C046 

0046 

0045 

0046 

0046 

0065 

0046 

10 88 0069 

ot Oo6F 

0070 

04 0097 

0098 

$098 

0098 

C098 


~ 
Boat euhrunrwe 


oe pt pe 
WW 


wa 
& 


oo we od 
MON 


eo ce ee eo 


eo ef 


tern: 
CtehRans 


dunmys 
asien = 


outs 


L6—MAY-1982 186522540 VAX-11 Macro ¥03-—00 Page 1 
T—APR-19B2 17218225 WORKSCMUTZNIEKS .SYSPRG.USSITESTYBIC1) 


TESTTBITZ.MAR 


This program tests to make sure that the TOIT handler 
Ras been removed by the RUNDOWN routine 


NOTE -- The TESTTEIT program sust be run before this 
progranm sill sork 


To sork properlys this program should generate a TSIT 
exception that is not handled by the TAIT handler 


epsect nonshared data pics, noexes long 
eascid /systconmand/ s to communicate sith terninal 
esord 0 


eascii /Contents of dummy location is / 


eascii / / 3 four blank bytes initially 
eascii Faf 
2 = msg 


, easeii /Out of USSOCLTSIT calls 


outien = . = out 


prevs 
arglist: 


starts 


$$: 


(J 
Qe 
ww 
oo 


we 00 ef oF 


- 
2 
CJ 

° 


elong 9 Peceive previous handler address 
argument list for USSOCLTSIT call 
eloeng 2 2 parameters 


address of new handler 
address of ald handler returned 


eaddress reshand 
eaddress prev 


oo 8 en 20 08 


epsect cede pic, shr, nowrt 

ouord 0 3 save no registers 

Sassign_s chantttchan, devnanztern 

blobs 0. S$ 

ret ; 

Saiow_s chanzsttchan, funcs#ios eritevblk plzasg p2séasien, 942832 
blbs P0210 

ret 


Make changes form TESTTBIT so that no handler is declared 
eallg arglist, g“ussdeltbit $ establish TEIT handler 
blobs PO, 208 

RET 


Sqios_s chanzttchan, funcetiot_sritevblk,splzout p22 toutlen,o42432 
bispse #*x10 ¢ set T-bit in mask 

noo $ causes t-bit exception to happen 

Satoe_s chansttchan, funcz#ios writevdlk,»pl=zssg,p2= smslionsp42832 
RET 


TSIT handier --- indicates being invoked by updating 
Llecation that is part of msg buffer 
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TESTTBIT2.MAR File (Page 2 of 2) 


MAIN. 


e0c0ddR? 06098 

00a? 

; GOAT? 

. OOAT 

OOAT 

caa? 

00000033° EF 060900238 ° EF 69 0647 
O62 a0e2 

0083 

0083 


5% 
55 
$6 
7 


$9 
60 
é1 
62 
63 


FILLERS .8LK8 15 


¢ SHGULD NOT BE ENTERED 


NEWHANDS 
movil eute 
rei 
cend start 
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7 
. 
e 
° 


e 
e 


dummy 


14-2MAV19B2 18322240 VAX-312 Macro V03-00 


T—APR-1982 L7SLB8S2S WORKSCMUIZNIEKS .SYSPRG.USS5 


make sure handler at same address as in 
TESTTSIT case 


TF RUNDOWN WORKS PROPERLY 


entered visa dispatch through SC8 
3 update value in field 
¢ dismiss T-8IT exception 


USER-WRITTEN SYSTEM SERVICES 
PART 5 - Assembling and Linking Programs (TBIT.COM) 


You will want to write a command Procedure that assembles and 


links all the programs used by this example. In particular you 
need to: 


1. Create a macro library from the TBITDEF.MAR file for use by 
the other programs. 


2. Assemble all the macro programs, including the debugger, the 
macro library from step 1 (where appropriate), and the system 


macro library (where appropriate). Also, generate listing 
files to aid in debugging. 


3. Compile the TBIT-specific error message file (TBITMSG) using 
the MESSAGE compiler. 


4. Link all the programs 


e Taking special actions with the system service dispatcher 
(/PROTECT qualifier) 


@e Including the debugger and system symbol table file, where 
appropriate 


e Generating map files to help with debugging 


5. Enabling the necessary privileges to run the programs (e.g., 
CMKRNL) 


6. Defining DELTA as the debugger to use 


7. Installing the user-written system service file 
(/SHARE/PROTECT). 


=) 


$ 


USER-WRITTEN SYSTEM SERVICES 


TBIT.COM File 


T8IT.CoM 

This command procedure builds all components for the modified TBIT 
exception dispatcher, system service, and sample test prograns. 
The following components are included: 

le A eregran that loads the new dispatcher inte the syston. 

2. =& procedure that illustrates its use. 

3. & pregras that removes the wmadified handler from the systen. 

Create the wmacre library used by the various prograns 

SET VERIFY 


$ 
$ LIBRARY /CREATESCBLOCKS210,MODULES:10) /MACRO = 


me Oe Oe A OH CH OH WD GH OP OD OF HH HH MH HK 
— ee 


—_ ome GD me OD we 


APAABHRKRERMAAHM MH 


TOITLIG.MLS TEITOEF. HAR 


Assemble 211 components Cinclude debugger support) 
MACRO/ENASLESOBG/LIST TESTTSIT 
MACROSENASLESOBG/LIST TESTTSIT2 
MACRO/ENABLESOBG/LIST LOADTSITSTBITLIB/LISRARVOSYSSLISRARYSLIB/LIB 
MACROJENABLESOBG/LIST REMOVTSIT+TSITLIS/LISRARY*SYSSLISRARYSLIB/LIB 
MACRO/LIST TEITOISPSTBITLIS/LIBRARY*SYS SLISRARYSLIS/LIB 


Compile image specific message codes 
MESSAGE/LIST TEITNSG 


LINK ALL PROGRANS 
LINK/PROTECT/NOSYSSHR/SHARESTSITOISP/MAPSTBITOISP/FULL SYSSINPUT/OPTIONS 


Gptioens file for the Link of User Syste Service example. 
SYSESYSTENSSYS STESSELECTIVE 


Creste ® separste cluster fer the transfer vector. 


LUSTERSTRANSTER VECTOR os o SYSSOISKSCITSITOISP 


SMATCHELEQUAL e151 


LINK/OEBUG/MAP/SFULL TESTTBIT,SYSSINPUT/OPTIONS 


Options file for TBITTEST 

TBITOISP. EXE/SSHARE 
LINK/GESUG/MAP/FULL TESTYSIT2 . 
LINK/GESUG/MAP/SFULL LOAODTBIToTBITMSG+SYSSSYSTEMSSYS.STB/SEL 
LINK/OEBUG/MAPSFULL REMOVTBITSTEITNSGOSYSSSYSTEMSSYS.STB/SEL 


Prepare to test prograns 
DEFINE LISSOEBUG DELTA : 
SET PROCESS/PRIVECCMKRNL, SYSPRY) 
COPY TEITOISP. EXE SYSSSHARES#.8 
PURGE 8.083, So MAP, SOLIS, SeEXEs S.MLBe SYSSSHMARESTEITOISP.EXE 
RUN SYSSSYSTEMS INSTALL 


YSSSHARESTSITOISP.EXE/SHARE/PROTECT 


SET NOVERTIFY 
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USER-WRITTEN SYSTEM SERVICES 


Sample Run 


$® RUN/NODEBUG TESTTBIT 

Contents of dummy location is e 

Out of USSDCLTBIT call 

LSYSTEM-F-TBIT» T-bit rendinga trar at PC20000047F +» PS1.=03000010 
ZTRACE-F-TRACEBACKs ssabolic stack duar follows 


rodule naee routine nase line rel PC 
MAIN. coDe ; 0000007F 
: 


@ RUN/NODEBUG TESTTBIT2 
Contents of dueay lacation is . 


Qut of USSDCLTBIT call 
ZSYSTEN-F-TBITs T-bit pendina trap at PC"00000470r PSL203C00010 
ZTRACE-F-TRACEBACK, sumbdolic stack duepe follows 


sodule nase routine naee line rel FC 
oMAINe CODE 09000070 
s 


% RUN/NODEBUG LOADTBSIT 
g 


® RUN/NODEBUG TESTTBIT 
Contents of dueeays location is ° 
Out of USSDCLTBIT call 
Contents of dusew loestion is Out . 


$ 

@ RUN/NODEBUG TESTTBIT2 

Cantents of dusaw location is . 

Gut of USSDCLTBIT call 

ZSYSTEM-F-TBIT»s T-bit sending trap sat PC=00000470» PSL2=03000010 
ZTRACE-F-TRACEBACKs svabdaliec stack duse follows 


eodule nsee routine nase line rel PC 
MAINS coDE 00000070 
$ 

& RUN/NODEBUG REMOVTBIT 

$ 


$ RUN/NODEBUG TESTTBIT 
Contents of dumes location is . 
Gut af USSDCLTBIT call 


ZSYSTEM-F<-TBIT, T-bit vendings trap at PC=#0000047Fr, PSL2=03COOOLO. 
XTRACE-F-TRACEBACKs svabolic stack duar follows 


acdule nase routine nane line rel PC 
MAIN. coDE 0000007F 
$s 

$ RUN/NODEBUG TESTT BIT? 

Cantents of dumaw location is ° 


Out of USSDCLTBIT cali 
ZSYSTEM-F-TBITs T-bit eendina tree at PC200000470» PSL203C00010 
ZTRACE-F-TRACEBACKs swaebdolic st3ck dus» follows 


aodule nase routine nase line rel PC 
MAIN. CODE 00000070 
$ : 
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abe PC 
0000047F 


aos PC 


00000470 


whe PC 


00000470 


vos PC 


0000047 F 


eos PC 


00000470 





WRITING COMMAND LANGUAGE INTERPRETERS 


TEST 

PART 1 

1. Write your own program that outputs a message to the terminal. 
Add a verb to your own DCL tables that activates the program. 

2. Rewrite the program to test for one parameter and one 
qualifier. Modify the CLD file such that the parameter is 
required but the qualifier has a default value if not given. 

3. Remove the verbs MOUNT, ASSIGN and DELETE from your DCL 
tables. . 

4. Alter the DCL commands in your DCL tables in the manner 
described below. To accomplish this, select CLD files from 
the directory [COURSE.SYSPRG.CLI]. 

a. force the /CONFIRM qualifier on the DELETE command to be 
used unless turned off. 

b. alter the "normal" number of columns on a DIRECTORY 
command to be 1] (one). 

5. Add the verb TOPCPU such that it has the same effect as_ the 
command : 

S$ MONITOR PROCESS/TOPC PU 
6. Alter the PRINT command such that it automatically places 


files in the queue LPA# unless instructed otherwise. 


58 


WRITING COMMAND LANGUAGE INTERPRETERS 


Solution to Exercise 1] 


NAME.MAR 
This program will output a message 
a command line and process it. 
eTITLE message 
ePSECT NONSHARED DATA PIC, NOEXE, LONG 
MESSAGE: eASCID /HI!!! 
ePSECT CODE PIC, SHR, NOWRT, LONG 
eENTRY START, “M<> 


Se eo De TSH 


WRITE MESSAGE 
PUSHAQ MESSAGE 

CALLS #1,G*LIBSPUT OUTPUT 
RET = 

e END START 


=e 


VERB.CLD 






DEFINE VERB TELLME 
IMAGE your _disk:fyour_ directory] VERB.EXE 





To set up the verb in your own DCL tables, execute the command: 


$ SET COMMAND VERB 


59 


WRITING COMMAND LANGUAGE INTERPRETERS 


Solution to Exercise 2 


NAME.MAR 
This program will obtain the information from 
a command line and process it. 


1 Se Me Be Be 


e-TITLE NAME 


SDSCDEF 

SCLIDEF 

~PSECT NONSHARED DATA PIC, NOEXE, LONG 
FIRST NAME: 

- BLKW 1 

-BYTE DSCSK DTYPE T, DSCSK CLASS D 

~BLKL 1 a? = = i 
LAST NAME: 

» BLKW 1 

~BYTE DSCS$K DTYPE T, DSCSK CLASS D 

- BLKL 1 > = = = 
FIRST: -ASCID /FIRST/ 
LAST: -ASCID /LAST/ 

~PSECT CODE PIC, SHR, NOWRT, LONG 


eENTRY BEGIN, “M<> 


=o 


Get values for parameters and qualifiers 
PUSHAQ FIRST NAME 
PUSHAQ FIRST 
CALLS #2,G°CLISGET VALUE 
PUSHAQ LAST NAME 
- PUSHAQ LAST 
CALLS #2,G°CLISGET_VALUE 


=e 


Process paramters and qualifiers 
PUSHAQ FIRST NAME 

CALLS #1,G°LIBSPUT OUTPUT 
PUSHAQ LAST_NAME ~— 

CALLS #1,G°LIBSPUT OUTPUT 

RET = 

- END BEGIN 


~e ‘te 


NOD.CLD Command Descriptor file 












DEFINE VERB Nod 






IMAGE your _disk::[your_directory]exer2.exe 
Parameter Pl, label=last,prompt="Last Name" 
value (required) 





qualifier first, default,value(default="Mr") 





To place this verb in your own DCL tables, execute the command: 


S$ SET COMMAND NOD.CLD 
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WRITING COMMAND LANGUAGE INTERPRETERS 
Solution to Exercise 3 


To remove DCL verbs from your tables, execute the command: 


$ SET COMMAND/DELETE= (MOUNT, ASSIGN, DELETE) 
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WRITING COMMAND LANGUAGE INTERPRETERS 


Solution to Exercise 4a 
Altered DELETE.CLD File 


define syntax delete entry or queue 


image queman 


parameter 


pl,prompt="Queue" ,value (required) 


define syntax delete all symbols 


noparameters 


define syntax delete _symbol ,mcrignore 


routine delsym 
prefix cli$k dlsy__ 


parameter 
qualifier 
qualifier 
qualifier 


pl,prompt="Symbol" ,value (required, type=Sinsym) 
all, syntax=delete all symbols 
global 

local 


define verb delete 


image delete 
prefix cliSk dele 


parameter 


qualifier 
qualifier 


qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


pl,prompt="File" 
value (required,list,impeat ,type=$infile) 
created 
entry, 
value (required,list), 
syntax=delete entry or queue 
modified ~ 7 oc ) 
Srnec age ONL =delete entry or queue 


confirm, (default }—added 

log 

since, value (type=Sdatetime) 
before, value (type=Sdatetime) 
expired 


symbol ,mcrignore,syntax=delete symbol 
erase 


define verb purge 


image delete 
prefix cliS$k_purg_ 


parameter 
qualifier 
qualifier 
qualifier 


pl,prompt="File”" 
keep, 
log 

erase 


,value(list,impcat,type=Sinfile) 
value (required) 
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Solution to Exercise 4b 


define type date options 
keyword all . 
keyword created 
keyword expired 
keyword modified 


define type size options 
keyword all 
keyword allocation 
keyword used 


define verb directory 
image directory 
prefix cliSk_dire_ 

pl,prompt="File" ,value(list,impcat,type=Sinfile) 


parameter 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
Qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


ZZZZy 
before, 
brief, 
column, 
creation 
date, 
exclude, 
expiration 
full 
heading, 
modification 
output, 
owner 
printer 
protection 
since, 
size, 
total 
trailing, 
versions, 


outputs (output) 


WRITING COMMAND LANGUAGE INTERPRETERS 


label=dummyl 


value (default=today,type=Sdatetime) 


default 


default ,value|(default=1) Changed 


value (type=date options) 
value (required,list) 


default 


from 
default 


value (required ,type=Soutfile) 


value (default=today,type=Sdatetime) 
value (type=size options) 


default 
value 
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1 


define 


verb | 
image MONITOR 
parameter Pl, 
qualifier BEGINNING, 
qualifier ENDING, 
qualifier INTERVAL, 


qualifier 


qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


qualifier 
qualifier 
qualifier 
qualifier 
gualifier 


qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


qualifier 





WRITING COMMAND LANGUAGE INTERPRETERS 


Solution to Exercise 5 


[ESpepu}— changed 


label=CLASS NAME, prompt="Class(es)", 
value (list Jdefault=process)}— Added 
nonnegatable, 

value (required) 

nonnegatable, 

value (required) 

nonnegatable, 

value (required) 





VIEWING TIME, nonnegatable, 


INPUT, 
DISPLAY, 
RECORD, 
SUMMARY, 
COMMENT, 


ALL, 

CURRENT, 
AVERAGE, 
MINIMUM, 
MAXIMUM, 


TOPC PU, 
TOPDIO, 
TOPBIO, 
TOPFAULT, 
CPU, 


PERCENT, 


value (required) 
value 
value, default 
value 
value 
value (required) 


nonnegatable, placement=local 
nonnegatable, placement=local 
nonnegatable, placement=local 
nonnegatable, placement=local 
noennegatable, placement=local 
eee,” AGGER 
idefaulthnonnegatable, placement=local 
nonnegatable, placement=local 
nonnegatable, placement=local 
nonnegatable, placement=local 





‘placement=local 


placement=local 
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Solution to Exercise 6 


define verb print 


image submit 
prefix cli$k prin_ 
pl,prompt="File", 

value (required,list,impcat,type=Sinfile) 


parameter 


qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 
qualifier 


after, 
burst, 
copies, 
delete, 
device, 
flag, 

forms type, 
header, 
hold 
identify, 
job count, 
name, 
lowercase 
page count, 
parameters, 
priority, 
queue, 
space, 
feed, 
remote 
wsquota, 
wsdefault, 
cputime, 


value (required ,type=Sdatetime) 
default,placement=positional 

value (required) ,placement=positional 
placement=positional 

value (required ,type=Sdevice) 
default,placement=positional 

value (required) 
default,placement=positional 


default 
value (required) 
value (required) 


value (required) ,placement=local 

value (required,list) 

value (required) 

Altered 
value (default=2) ,placement=positional 
default,placement=positional 


value (required) 
value (required) 
value (required) 


characteristics,value(required,list) 


log file, 
printer, 
keep, 
notify 
wsextent, — 


value 
value (default=sysSprint) 


value (required) 
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PART 2 


1. 


The following problem has been found with the 
class. It appears that after some images 
command (and control=Z) no longer log the 
running the LOGINOUT image does). 


Sample Run Illustrating Problem With CLI 


Usernames MUIZNIEKS/CLI#MYCLI 
Password: 
Welcose to VAX/YMS version V3.0 on node HARDY 
BBR EXAMPLE CLI 38% 
ENTER IMAGE NAME SYSSSYSTEM:PIP &.EXE/FU 


Directory DROS CCOURSE.SYSPRG.CLIJ 
3L-MAYB2 21530 


CLI discussed it 
are run, the BY! 
user off (but 


MYCLI.EXE32 (241694) 6.78. + Bi-MAY-62 2123827 €117250)3 CRWED*sRWED»REs I 
TODO «EXEs 20 (24102) 18./18. SiSMAY-82 21325 £11250) CRWUEDrRWED»REs I 


Tetal of 24./24. blocks in 2. files 


ENTER IMAGE NAME BYE 
ZRMS-E-FNF> file net found 
ENTER IMAGE NAME £2 
ZRMS-E-FNF >» file not found 
ENTER IMAGE MAME SYSSSYSTEMSLOGINOUT 
MUIZNIEKS legged cut at S1L<MAY-1982 21231501 .36 
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Your assignment will be to alter the CLI so that the DELTA 
debugger can be used to locate the error, and then identify 
and solve the problem. In order to do this, you will have to 
link the CLI with the file containing the DELTA debugger 
(SYSSLIBRARY: DELTA.OBJ). This file is distributed as a 
Standard part of the VMS system. 


You should try to imitate the scheme used by DCL to invoke the 
debugger. The scheme used by DCL is shown in the following 
partial listings of DCL modules DCXSTART and INITIAL. Note 
that calling the routine XDTSSTART invokes the DELTA debugger 
from a program. (You will probably find it convenient to have 
Rll contain the starting address of the CLI, as done by DCL.) 


You may find that you have some problems receiving control at 
the breakpoints you set. If so, you will need to examine the 
listings for DELTA (see your instructor), and take appropriate 
actions to solve that problem in your CLI. 
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03 00000002 °G5= 


01 
FRET? 
SE 00000003°SF 

00 
18°AF oi 


$0 090000C0°EF 
Ge a6 coco ’Ccr 
046 ac $6 
568 C2 4F 
069000000 °GF 6c 


9066 
0000 





WRITING COMMAND LANGUAGE INTERPRETERS 


Partial Listing of DCXSTART Module 


= SCL JESUS VE@STCN STaPY “QoULE 


DE2USCER START UP 


e909 
cooe 
69c9 
00c6 
6000 
69¢0 
e060 
€309 
0909 
00006009 
0069 
0009 

El 0900 
32 «0008 
62 6068 
co 00122 
Fa 0924 
oocG 60013 
9= 00274 
9€& 0621 
66 0927 
92 0923 
Fa 002F 
6034 
G03 
oo0accand 
0000 
0005 06000 
o00g@ 0004 
60098 
0008 


$7 
58 
$9 
€8 
61 
€2 


eS3YTL 


oe 


START<UP WITH 


THE SYSTES,. 


00 @@ 20 00 08 90 e0 


oPSECT 


SASE_Of_CLI® 
sac 

Skis 
MOVE 
PUSKL 
CALLS 
2¥aRo 
mOVAS 
movas 
MOVE 
MOVAS 
CALLG 
SEXTT_S 


108s 


208: 


o PSECT 
XPER_AWRAYS 

o LONG 

oLONS 


e END 


68 


26-APRH1982 22250242 
LO~MAM—1982 2025152504 


VAX-1]2 Maere VO03-00 
—OBS6SC HCL. SRCJOCXS TART MA! 


OESUGGER START UP 


OESUGGER 


THIS ENTRY POINT TS JUMPED TO AT THE CONCLUSION OF LOGGING A USER ONTG 
ALL INPUT 
DATA ARES CPPD) HAS SEEN INITIALTZED. 


AND OUTPUT FILES ARE CPEN ANO THE PROCESS PERFANE! 


OCLSSAASE, BYTE, ROQNOURT 


ePPOSV_MPODE ,G*CTLSAG CLIGATA+PPOSW_ FLAGS.10$ 38R IF NOT 8/ 


OCLSSTARTUPS2 3 TF BATCH, SKIP DEBUGGER ENTRY PX 
G*CTLSAL STACK O8.SP ¢ RESET SUPERVISOR MODE STACK POT) 
20 $ ALLOCATE SPACE FOR XFER VECTOR | 
#2 584208 3 MAKE DUMMY CALL FRAME CHANOLER =( 
6 
XFER_ ARRAY RO ¢ GET ADORESS OF TRANSFER VECTOR 
W°OCLSSTARTUP, CRO) $ SET SECOND TRANFER AOOR TO MERE 
RO,4CAP) 8 SEY TRANSFER ARRAY FOR DEBUGGER 
SASE_CF_CLILR12 3 RIL = SASE OF CLE FOR OEBSUGG ING 
CAP) OG*XOTSSTARY $ CALL DEBUGGER INITIALIZATION 

3 EXIT IF ANY OEBUG INIT PROBLEMS 
OCLSOEBUGS WRT 
8 8 PRIMARY TRANSFER CNOT USED) 
t 8 SECONGARY = OCL INITIALIZATION 


SE 00000008 “GF 


50 

0022 °CF 6E 

7é 

2a°ar 6E 

60 oo00°Cr 
06000000°GF 0002°CF 


Sa 00060000°GF 


se O68 As 

06 AA a0 6& 90 
63 sc 

$O ag 1E aa 

G6 02 AA 01 

$& a8 o0Ccd OF 

oo98 CB 020600000 8F 
0S O02 aA 00 

6C 28 00000000°GF 
0090 C3 04 

$6 As 02 

06 $4 a8 06 

$6 ab 0208 aF 

56 22 ae 

60 50 

$43 80 

60 $0 

80 80 
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© COMPANO INTERPRETER INTTIALIZATION 26-APR-1982 22232241 VAX~11 Macro VY03-00 Page 4 
COMMANDO INTERPRETER START UP 


0021 136 
0021 135 
0021 126 
0021 137 
0021 138 
0021 139 
0021 240 
0021 141 
e021 142 
09000000 143 
0000 861446 

co 6900 145 
0& 0007 146 
FS 0009 147 
QCOOE 148 
0017 149 
00006021 159 
0021 151 
6006 0021 152 
06 0023 153 
Fa 0625 136 
06 0029 155 
0000 o82a 1564 
$2 0926 157 
9= 0971 158 
9€ 0034 159 
0041 160 
0041 161 
0041 162 

Co 0041 163 
2C 0045 166 
72 906C 165 
#6 O04F 166 
£1 0056 167 
ag 0059 386168 
C3 Case 6169 
£1 0963 170 
e060) 836171 

9© 0073 172 
go ¢coTa 173 
0080 176 
e980 175 
0080) 86-1176 
0980 17? 

80 oo80 8 8 178 
eo coBs 179 
eo 60089 ©~=—(180 
-Q08F 182 
cokes 182 
ooge 183 

9= oo8eF 186 
ro ¢993 185 
C3 0095 184 
0099 187 

09 0099 188 
09 609C¢ 189 
C09F 1906 


eSBTTL 


od 


OCLSSTARTUP = 


@e 08 e8 <0 20 ce oe 


4 


oPSECT 


mOvL 
CURL 
CALLG 
SEXIT_s 


oPSECT 
OCLSSTARTUPS: 
oWORD 
CLRL 
CALLG 
RET 
1083 oWORO 
ROVAS 
"OVAS 
movas 


MOVL 
MaaGvVCS 
"OVC 
“OVW 
sec 
8ISw 

2035 8rst 
asc 
CLRSi{T 

2583 MOVAS 
“OVW 


30 AN IMPLIED 


movi 
88s 
MOVW 


tab oe eo 06 


Oss “OVAS 
MOVE 
“OYL 
&SSUME 
MOVL 
“OVL 
ASSUME 
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24-APR-1982 17207524 _OBBOSCOCL.SRCJINITIAL. MARS 2 ¢€3) 
CCMMANO INTERPRETER START UP 


COMMAKO INTERPRETER START UP 


THIS ENTRY POINT IS JUMPED TO AT THE CONCLUSION OF LOGGING A USER ONTO 
THE SYSTEM. ALL INPUT AND OUTPUT FILES ARE CPEN ANDO THE COMMAND LANGUAGE 
INDEPENDENT DATA AREA HAS SEEN INITIALIZED. 


OCLSSBASE, SVTE »RONOURT 


G*CTLSEAL_STACKS6, SP SRELOAD SUPERVISOR STACK POINTER 
Fp SINOICATE NO PREVIOUS FRAME 
CSP) ,WAOCL SSTARTUP sSETUP INITIAL CALL FRAME 


OCLSZCODE BYTE RO NOURT 
SCOMMANO INTERPRETER START UP 


anc> SENTRY MASK 

CSP) SSETUP DUMMY PSL COPRC_L_SAVAPSPRYPSL) 
CSP).8*108 SCREATE OUNMY FP AFTER DUMMY AP 

0 

W*OCLSCONOHAND CFP) SESTABLISH CONDITION HANOLER 


W*OCLSUTLSERVOZ2,G*CTLSAL_CLICALSK $3 SET CALL BACK VECTOR 
G*CTLSAG_CLIDATA,R10 sGET ADDRESS OF PPO 


INITIALIZE CLI PROCESS WORK AREA 


PPOSO_CLIREGO4CR109,R11 SGET AODRESS OF CLI PRIVATE STORAGE 
90 ,CSP),9O,PPDSO_CLIREGCRIOISCRILD FZERO ALL STORAGE 


AP ,PRC_LLUSAVAPCRI1) SSAVE INITIAL ARGUMENT ANO FRAME POINTERS 
SPOS INPCHANCR10) PRC _W_INPCHANCR11 > sCOPyY INPUT CHANNEL 
SPPOSV_MODE, PPOSW. FLAGSCR103.208 sCcoPY JOS MODE 


€PRC_P_MODELPRC_M_VERIFY,PRC_W_FLAGSCRI1) AND TURN VERIFY ON 
#9 °C _w_CTRLY »PRC_L_OUTOFSANOCR11) TENABLE CTRL/Y 
#PPOSV_NOCTLY,PPOSW_FLAGSCR10) 9258 COPY NOCONTROLY MODE 
PRC_V_CTRLY, PRC_L_OUTCFSANOCRI1) 

G*OCLSAL_TAB_VEC »PRC_L_TAB_VECCRI1) TADORESS OF DATABASE 
€4,PRC_S_EXMOEPWIDCRI1) SSET EXAMINE MODE TO HEX,WIDTH TO 4 


FOR SATCH JOBS, SETUP TO EXIT ON ERRORS. FOR INTERACTIVE JOBS, 


“SET NOON®. 


@2,PRC_W_ONLEVELCRI1) SASSUME °ON ERROR THEN EXIT® 
SPRC_V_MPODE, ORC _W_FLAGSCR119,30$ SIF BATCH JOB, THIS IS OK 
€23898,PRC_W_ONLEVELCRI2) SIF INTERACTIVE, "SET NOON® 


INITIALIZE CLI SYMBOL TABLE 


PRC_G_ GLOGS ALCR1I1),R0 SGET ADDRESS OF GLOBAL TABLE LISTHEAD 
ROVCROD sINIT GLOSAL SYMSCL TASLE EMPTY 
CROD 4, CRODS 

PRC_Q_LABEL EQ PRC_Q_GLOBAL+E 

ROC RO) SINIT LASEL TABLE EMPTY 

CRODOCROD¢ 


PRC_Q_LOCAL EQ PRC_Q_LABEL +S 


oMatN, 





WRITING COMMAND LANGUAGE INTERPRETERS 


Corrected CLI With Debugger Support (Page 1 of 7) 


aseseesa 
FFPRFFOC 
FFEFEROC 
PFPFFPAG 
FFFPFEAG 
FRFPPFAC 
FFFFFFEC 
gseaeces 


SE 09000008 °CF 08 


oae9 
9890 
es0gs 
eos 
@996 
e008 
#800 
eeue 
@06e 
9900 
8080 
aene 
adae 
e908 
3868 
3998 
eo0e 
eooe 
eaee 
aes 
asee 
once 
eso 
986e 
eese 
@e0e 
2008 
4688 
seoe 
3880 
A986 
9830 
oaue 
otra 
OiFa 
attra 
etre 
FF9C 


FFIEC 


FFAG 
FFAG 
FFAG 
FFAG 
FFAC 
FFAC 
FFE 
FFFE 
8000 
age 
3004 
3600 
0886 
eaae 
eee 
0800 
08290 
e0o7 


OOo Ah it or 


SioMAYe {962 21109805 VAX@11 Meero Ve3oaE 
3LeMAYo$962 21168958 DRAGS (COURSE, SYSPRG.CLI) MY! 


: MYELIOBG.NAR 
eTITLE © MYECLIDBG © EXAMPLE CLI (COMMAND LANGUAGE INTERPRETER} 
3 . 
s Orf{gine!l eyther Jena Wetp © Training © Resding. 
s Significantly rewritten/ealtered for V3 interfaces by Vik Mulanieks 
3 
3 Te use this CLI the file MYCLIBDBG EXE myst be inetelied in SYSISYSTEM, 
3 using the JELIs eptien (er else eet Up the relevane default CLI with UA 
9 USERNAMES NAME/CLI#SNYCLIDOSG 
3 
9 Tre CLI sremees for an image file name and puns the specified imege (ei 
3 Aetive mode er compatibility mode). Commend tines can be passed to uti} 
s such as PIP as follows (OCL utilities CANNOT be used): 
9 S SY8SSYSTEMsPIP a. a/FU (ee gee @ full direetory ifsting) 
I 
s CONTROL@Y eborts the current {mege, 
] 
1 Te legeuts tyee BYE. use a CTRL@Zo oF execute BYSSSYSTEMSLOGINGUT 
3 
3 MACRO libeery calito 
3 
SPSLOEF p e8€Cese mEde symbole 
STHOOEF s image header symbols 
SCLIOEP p Command interpreter fleges 
SCLIMSGOEF 9 CLE mescege codes 
S®POCEF 8 from own mecro librery 
PREDEF 9 ¢eem own meere \ibrery 
PROOEF » ¢rem own meere Vibrery 
? 
3 CLI oFivete work sree © this wil} be greeted on the eteck 
’ 
ePSECT $A8S3,488 
MSG8UFSTZ280 
WRK LK LENG THSe3 a8 
oSWAK LK LENGTH 
WRE UL CMOLENS y user command jengtnr 
e SLXL i ; 
sate asian y eGdreeee of user command 
oe SLKL 
WRK GO MSGBUFOSC?! » deserintor for user input 
e 8X8 t 
WRK TF MSGBUPS $ sterage for user input 
eo SLKB MSGBUFSIZ 
WRELL SAVESRS § aeved steck pointer 
oe ALKL b| 
WRE LL CONOMANDs 9 address of condition handior 
eo ALRKL i 
’ 
o™SECT 
’ 
9 Ne entry mask © must etare et first location of image 
, 
SUPSSTART3 3 
MOVL G*CTLSALLSTACKO6, SP 1 peleoad supervisor stack pointer 


70 


86e7 

Cy) DO 9887 

eeceesis°Eer rl FB ange 
8eee e919 

Se OeGRGRSO°EF SE Bsei2 
. 98 Ad GOGSseSS°ErF 9E& Ba19 
ee ac Se De® 862i 

$8 O8 AF %€ 6625 
GGCceses Gr ec FA 0829 
ae3e 

9839 

66e800d¢ 

eagg 

eseaseea s6¢66 

668¢a0¢e eAgG 

#808 

SGSG0Gas agus 

 9eec 

SS6GuGse 

8908 3939 

6038 

aeag 

SGaE 

aaar 

50 FE AE CE AGSE 

8AS2 

Sess 

Sess 

sesB 

aseE 

@O6E 

TT) 4 

eeai 

3a8t 

dest 

OO8E 

AABE 

@esEe 

TE 08 ee6€ 

oarar o€ FA 98996 

8660 vusdsa 

Sa SesgegeaarGcr GE 389% 
58 28 aA 08 #890 

@a AA 938 o€ ed 2€ «ama 
$e ab 1€ Aa 88 ae@a8 

68 sc 70 9@a0 
saaagaeae’Cr a372°Ctr 9€ agae 
aon9 

aass 

oaB89 

a3s¢ 38 e900 

OGES 

@3a8 3a «gert 

16 AA seseceaea’ sf 08 eeFe 
AaGFC 

egFre 

$8 eece cs 9€ eFC 
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Corrected CLI With Debugger Support (Page 2 of 7) 


St@oMAYo1982 213399395 VAX=li Macro V8S98s 2 
SLeMAVe1982 21:96358 ORAGE (COURSE, SYSPRG, ehinivertose.nca 


gatee New stuff for debucging sexe 


PusHtL rT) py atl, space for trensfer vector adder 
CauLs #1, 33 3 Meke dummy cal! freme Chandiersé) 
Sst 2¥O0RO 6 e 
MOVAB 8 XFER,ARRAY,RO 9 Get address of trensfer vector 
MOVAS G0, (RB) 3 set second transfer address 
MOVL RG, SCAP) 9 set trensfee arprey fer dedugcer 
MOVAS SUPSSTART,RYY 3 RY{L @ bese of CLI fer debugcing 
CALLG (AP) G°XOTSSTART » Gell debugcer initialization 
SEXIT S$ ry exte (f eny dedug init probleme 
ePSECT MAKE WRT GWRT 3 needed sinee weitedle ares ' 
XFER ARRAYS 
oLONG 8 s OPimery trensfer Cnet used) 
eL ONG t s secondary 8 CLI Initialization 
BPTHANO? 
cL ONG = 9 eddreees of DELTA peimery exc. vec, handler 
oP SECT 
Gor e40RD = F¥na> entry from depugcer 
SSETEXV S ACHODESSPSLSC_USER, PRYMNOSEPTHAND y eave DELTA hendier 
yreee End of stuff for debugging 
MOVaL «6 4 (89) FP + set ea good FF 
SRUNOWN,S SPSLSCLUSER 3 PUR down LOGINOUT Imege 
geee Mere stuf! fer debuccing 
SSETEXV,S ADDRESSOBPTHAND, ACMODESSPSLSCLUSER 3 estedliah primary 
3 exe, veetor for user mode te 
% Ctrensfee contre!) te CELTA handler 
SSETEXY, S$ ADGRESBOBPTHAND, ACMODESSPSLSC SUPER 3 same for super moda 
geen End of dedsucging edditions 
SOELLOG,S SPSLSEC SUPER 3 delete ef! supervisor mode process 
s legtes!) names, Specifically gets rid 
3 of tnittal SYSSINPUT,. Leaving the 
3. CoPppect exec, mode togicel name, 
CLAL o($P) 3 set us dummy zero ore, block 
CALLG (3P),8°188 t create initial ea)} frame 
198% eo 4ORO @ t entpy mask 
“OVAs G°CTLSAG CLIDOATA,RIB 3 RIG @ Address of PPO ares ieee LOGIN 
MOVE PPOSO CLIREGOA(RIG),R31 3 RIL @ Address of CLI private atorace 
moves 8G_ CSP3,89,PPDSS CLIREG(R1IG)s (RI) 3 zero al} atorace 
Move PPOSH, INPCHAN(RIG) sPRO WIINPCHAN(RIS) 3 save TTY chenne! numver 
MOVO AP, PRC LL SAVAPCRI1) 3 seve initiel erg and frame pointers 
“OvA8 w°SUPSUTILSERVe2, GSCTLSAL CLICALBK 7 CLI coallbeck routine 
SOLOW, 81,PRC_w INPCHAN(R11), #IOS SETMODE! [OSM CTRLYAST® 
PLRSUPSCTRLYVe 
PJasPSLSC SUPER + eet up CONTROLeY ast 
886" ERROR 
SOCLCMHS HAND y set up CHMS nancior 
8Sau ERROR 
MOVE SSSS NORMAL ,PPOSLULSTSTATUSCRIB) » eatabi{ah normal success 
5 for exit to LOGINOUT 
t Inittel(zse process RMS aecructures 
MOV AB PREC LLENGTHCRI1),R8 $ set eddress of RMS atevctures 
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WRITING COMMAND LANGUAGE INTERPRETERS 
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oMAIN, : SLSMAY"1982 21209805 VAXe{1 Macrae VE3<88 
SLeMAvo1982 23:08858 ORAGs (COURSE .SYSPRG,CLI)! 


i¢ a8 68 9E ast 115 MOVAB PRO GL FASCRE),PROLLLINOFAB(RIL) 7» addr, of gen. BuPD, Fi 
$9 06 ge8e C8) = 9E a8 8S 116 MOVAG PROG _INPRAB(RE),RO § set eddress of {mout RAB 
$7 1:70 C8 9€ e194 117 MOVAB PROG OUTRAB(RBE) RI y set eddress of eutput RAS 
68 eaga°ar 6a ater 128 KOVE OPABSC, SIDCKFABSC BLNOG>c PROG _FAB(RE) 5 wet FAB ID/Lone 
eoee°ce S@ aé GE B1ie 11¢ MOV4B PRO LGLNAM( RE), PAGSLLNAM(RS) § Bet address of NAM Bloek 
‘ $8 a6 aeoa°er 86 Ola 12 4OyN BNAMSC, BIDOCNAMSC BLNOG> PRO G,NAMCRE) 3 see NAM L0/Lenc 
seeo°cs geeo°6r 86 #129 42! “OVW SRABSC_SIDCCRABSC BLNOEm>RABBB_SIDOCRO) 9 eee RAB IO0/Lene 
eege’cs 22 AA 88 e127 {22 MOVw PPOSH INPISICRIG)»RABSMISICRO) » set inpue I8f 
0008°C7 g6ee°c? 86 9120 123 MOVW RABSB,SIOCRG) ,RABSB,BIO(RT) 9 set RAB TO/Lencen 
eese°’c? 26 AA 88 138 128 MOVvu PPOSw OUTISTCRIB) oRAGSWLISICRT) » set outpue I81 
eeee°cs 58 08 ai3a 125 MOVL RB eRABSLFAB(RE) § get eddrese of FAB 
eoeerc? $8 08 oa13F t26 MOVL RE RABSLIFABCRI) y) set address of FAS 
aaae°c? eeeerar AA 6184 127 8rCw BRABSM PPFL INO, RABSH TSIC(RY) $ eet PPF direct acceas 
OOgB°C? o090°8F AA 0188 128 8yeu SRABSM PPE INO, RABSH ISI CRT) 9 diseble vseremede EOF 
OeFsS C8 eg0e°c? 608 9:52 129 MOVL RABSBE_BIOCRO) PRO, GLALTINPRAB(RB) » get RAB L[0/Len/I82 
@i38 Cs 9000°C? oo 9159 13e MOVL RABSB SID(R7) PRO GLALTOUTRAB(RE) 9» set RAB LD0/Len/I8I 
esse°c? @& AA oe Bie9 133 MOVL SPOSL INPDEV(R1G) ,RABSL CTXCRO) 3 store input device che 
eGGe°C?7 68 AA O08 B16 132 MOVL PROSL OUTOEVC RIB), RABSLLCTXC(R7) 3 store output device ch 
esearce Gi 96 8166 133 MOVE #2, RABSB, MBC CRO) § elloesee | blioek/buffe 
geee’c9 Pr OF 98 171 1348 “OVE 80% ,RABSB MOF (RO) } allecete { buffer/stre 
882°C? eeea°cs? 88 0177 13$ MOVH RABSB MBF (RG), RABSB MBF CRT) p set same MBC/MBF for 6 
oeae°c9? @egeecea’ ar cé wae 136 BzSL #RABSH, PMT RABSL,ROP(RO) 1 ellow peed with prompt 
ee asd $7 0S 8187 13° MOVL RT oPRE.LOUTRAB(RI1) ) set address of output 
66 ab $9 O@ @188 138 MOVL ROOPRE LINPRABCRIL) 5 eet address of input R 
otar 139 7 
#1 aF 146 7 Biesley CLI PuAniAG message to user 
SA @C a6 oe ayer 141 MOVE PRE LL OUTRABC RII, RIS 3 Get eddrese of output 
66ag°CaA CEGASGO2°EF 9E 8193 142 MOVAS M$9G8,RABSLROFCRIG) 3 se€ meseege eddrese 
geee°ca agi9°eF 8 B19¢ 143 wove SLENG, RAGSHRSZCRIG) § eet record size 
dias 148 spur RAGECRIBD § dfepley CLI running me 
8280 30 3%ac 14§ 838% ERROR s cheek for errors 
BLAF 186 ? and drop eheeugh to ne 
Oar 147 


@iar 146 : Mein ELT lees entered ence from the initialize routines then 
Gar 18¢ 3 subsequentiy from ehe exit Aandier te procese next commend after 
Ogar 1586 9 image exfe, 


Siar 1S% 5 
GLAP 152 SUPSRESTART? : 
0 GOGQISGETEF 9E aiar 1§3 MOVAS SUPSEXCEPT, CFE) F set condition hendier address 
@186 1$8 
OtBe 15S ;ee8 Mere stuff fer debugeing 
6186 156 SSETEXV,S ADDRESBOBPTHAND, ACMOOESSPSLSC USER 7» estedlish primary 
#1c9 187 3 exe, veetor for veer mode to 
eic9e 186 ) trenefer central to OELTA rend! 
atce 18¢ SSEYEXV,S ADDRESSOCBPTHAND, ACMOCEBSPELSC SUPER 7} same for super m 
o10¢ 16@ sens End of debugging edditions 
#10¢ tet 
SE 6c ao 9€ 910¢ 162 MOVAB WRK UK LENGTHOLOCFP)+SP + reserve CLI work eres 
42 AO segaaese aF os «tes 163 MOVL OMSGBUPSTZ,HRK GC. MSGBUFDSCC(PP) » a1ze of RMS MBG buffer 
A&B Ad ac ao 9€ aie8 168 MOVAB WRK TP MSGBUPCFR), WRK GO. MSGBUFDSCOACFP) 5 eddress of buff: 
Sa 08 AB Of BLED 165 MOVL PRO LL INPRABCRI1) R19 § eddrese of input RAB 
9aoe°ca GOSH0896°EF 9— atFy 166 MOVAB MEGC2eRABSLPBFCR18) 3 Set prompt addrese 
esue’Ca 13°8F 96 GFA 167 “OVS SLEN2,RABSBP8Z(R1 8) # set prompt size 
egea°Cca Ac ad 9— 9290 168 MOVAS WRK T MSGBUFCFRP) ,RASSLLUBF(RIB) § tnpue buffer eddress 
@900°CA 6aSo SP 88 932¢6 169 MOV! emMSGBUPSIZ,RABSWUSZ(R18) ) input buffer size 
9280 17e SGEY RaBe(R19) 2 Get next record 


$2 9@98°CA 36 sB216 i714 MOVZWL RABSWLRSZ(R1G),R2 3 8{ze of fnout Tine 


FZ 


Corrected CLI 


$3 gegerca 
oF 


beer ac a0 0083°8F 
: 3 

oF 

Se veegecso°’sr 
86 

13 33 

FF OF 

$2 13°6F 

33 SOGGAGA9EF 


Se $2 
- SE 


@asegaca cer 


ec. ad Sa 


a@ a0 63a2 
69088260 °EF 
83 $6 
@1¢8 
FF29 


1F $& AB 83 
99990397 °EF 
78 as ei 
eeee C8 


7a a8 
7¢ a6 


0192 

55 aagagena Gr 
65 $2 
6AGOGQ00" BF 
6OUHGREC “EF 


a6 aS 
ac as 


oF $8 
58 


€8 
do 


WRITING 


6218 
9220 
9222 


A22F 
v23i 
“238 
#254 
#235 
3289 
e2aa 
e208 
8248 
s2a8 
32c€ 
8258 
e239 
4250 
a2$2 
e288 
8287 
a25a 
@2SE 
9266 
8268 
R266 
S26E 
S26€ 
V20E 
9272 
8272 
8272 
@277 
@270 
9280 
9283 
8286 
3286 
3286 
8286 
9286 
e288 
e293 
2297 
3290 
32a? 
O2Aa 
aeai 
4284 
*2B8C 
vets 
e2csa 
aeca 
aeca 
g20c 
A20F 
*2E1 
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172 
173 
176 
17S 
176 
177 
178 
179 
138 
181 
162 
163 
164 
1865 
186 
187 
166 
189 
19¢@ 
191 
192 
193 
198 
195 
196 
197 
196 
199 
208 
201 
292 
2a3 
29a 
285 
286 
207 
208 
209 
218 
211 
22 
213 
218 
215 
216 
217 
218 
219 
228 
221 
222 
223 
228 
225 
226 
227 
228 


SLoMAVO1962 23:09885 VAXe11 Macro VS3~00d 
SLoMAYO1982 21:868258 ORAGs (COURSE, SYSPRG, CLI) MVELTOB¢, MCL) 


eddeess of {naut line 

seve registers ecross CMPCS 
9 cheek for BYE commend 
{f so, lee out 

restore registers 

wes (t end=ofefite 

1? soe legeut 

valid GET? 

(f not, try egatin 

{¢ EOF © lSegout 

set up for LOGINOUT 


store commend ltne length 


3 lei{n common code 


Biank line? 

{? note continue 

1% plenk © get another 

length of commend 

eddrese of command 

fe this cher. in separator lise 
{¢ NEG © yes 

else try next char, 

Peet image name tengthr 


te fix bug from ebove 
‘seve user commend length 


1 Save user command eddress 
Qo pun the selected imece 
skip {f ok 

output error message 


SPRE VIEXTIT, PRE WLFLAGS(R11)5088 3 skip if Nendler active 
SUPSEXIT, PRO .LIEXTHNOCREL) 9 set exit handier address 


set count of arguments 


PRE LLEXTCOOCRIL-PRE LL EXTPRMCRIL) 3 address of parameter 


$ set up exit handier 


RS s Address of image heacer buffer 
pointers to {mage file deec, 
pointers to default imece file dese, 


ectiveate image 

image file name 
default file name 
image header buffer 

4 set = aetivetion ox 
Save error code 

Pun down bad imege 


MOVL RABSL ROF (RIG), RS : 
PusHR B°MERG,RLRAQRS> 
CMPCS BYE LEN, WRK,’ T “RSGBUF (FD) »BYE 
BEL 198 } 
POPR BPHERGARLRA,RI>D 3 
CMPL @RMS38 EOF ,RG ] 
BEGL 198 ] 
BLas RO, 298 3 
BRwW SUPSRESTART 3 
4982 MOVZBL 4 #L0G0SZ,R2 ’ 
“MOovVAS L060,R3 $ 
gene Fix provlem with BYE end controte? commande not working 
MOVL R2,Ra 3 
Bre 238 
gece End of fixece=e alse add jebel 238: below 
20S¢e TST. Re ’ 
8NEG 183 , 
BRK SUPSRESTART i] 
1883 WOVL RVN,RB 3 
MOVAL WRK TLMSGBUF CFP), RS 3 
2183 Loce (RS) ¢,83,SEP 3 
BNE 223 3 
SO8GTR R&,218 5 
228% SUBL2 RGeR2 3 
geen Added label 238 to this statement 
238 MOVL RGoWAK L CMDLENC FP) , 
geese End of bug fix 
MOVAS erates 
Js8 SUPSIMGACT 
BLES RO, 283 : 
638" ERRPRT t 
2983 SRe SUPSRESTART 
3 
s Image saetivetion 
3 
SUPSIMGACTI 
ssss 
MOVAL 
MOVL #1 PRO LIEXTARGCRI1) 3 
MOV AL 
SOCLEXH S$ PRC aboEXTBUKCRST) 
8sBu “eRROR 
aa3S¢ MOVAL G°MMGSIMGHORBUF, RS , 
“OVO R2, (RS) HM 
MOVL SOEFLEN, 8(R5) $ 
MOvAS COEF, 12¢°RS) 
SIMGACT Se $ 
NAMES(R5) 0 ’ 
OFLNAMBB(RS)e© 5 
MORBUFS(R5S) , 
6L88 RO,SaS 3 
PUSHL Re ’ 
SAUNDWN,S SPSLSC USER ’ 
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58 

Fe ad OSE 
7E—E GF $6 
PACAF 

sé 

ea°ar 668 


60 ssaeaeea cr 


. 22 $8 
Sa 86006808 °GCF 


7E 

28 24 

7é $6 

7é 6eeGas7a°er 
SR 82 Aa 

T ] $8 

68 

96 86 
9eG09088°CF 


36 8ec000da°Gr 
56 08 48 

78 ab 66°Ar 
seogesde CF 


Se segegccea GF 


$8 seseagsa*Gr 
58 88 48 
$6 @8 a8 
Sa Oa ac 


06 AA 9¢ a8 
@c aa A@ AS 
38 @G838001 &F 


S€0e 
6s 
09 
78 


@2EA 
@2£0 
@2ce 
oer2 
G2F6 
a2F6 
62F9 
O2Fa 
e2rc 
#306 
9382 
0309 
o31¢ 
0323 
0326 
9320 
e326 
e32F 
8332 
3335 
@33€ 
0349 
8343 


O3as 


0388 
O34E 
O34E 
632E 
O3E 
S3GE 
@32E 
0350 
ags7 
93358 
3360 
8366 
0368 
O36F 
6376 
6370 
9370 
e374 
8376 
3378 
6372 
8379 
0370 
2383 
9385 
038A 
exer 
4396 
6397 
6397 
€3°7 
O3e7 
6397 


POPL Re 
RS8 

aass M@YL SP, WRK LUSAVESP CRP) 
ASkKL 
PusSHasS a8°Sas 
RET 

Sass CLRO ap 
Cals 80,8°6e8 

68338 o¥ORO 6 
MOVAB  G°EXESCATCH ALL» (FP) 
SSETEXV,3 M2, GS EXESCATCH ALL 
SIMGFIX.S 
BLBE “a9,o5s 
4OVS G°oMHGSIMGHORSUP, RS 

s CLI argumene iise 
ELRL e(S$P) 
PUSHL = THOSL LNKFLAGS (RG) 
“Ov9 RG,o(8P) 
HOVAS SUPSUTILSERV,@C8P) 
MOVZHL «HOS ACTIVOFPF(RG) RD 
ADGOL RB RE 
PuswatL (RG) 
CALLs B60 8(RII¢ 

6S38 Jue GPEXESEXTT IMAGE 


SieMAYO19S2 23:89505 VAXO11 Mecre VO3~98S 
S8eHAVo§{ 982 21286858 ORAGE (COURSE, SYSPRGE, CLI} MYC 


s 
$ 
3 


Pectere error code 
peturn to mein loos 
seve current 8? 


SPSLSVPRVMOD, MPSLSC USERO2>PSLSCUSER, © (SP) 


2 a SS 40 % 


@S Ce ~S UE CO CO TE BE OS 


set us user P8L on stack 
eet up veer PC on stack 
ewiteh te user mode 
elear AP, FP 

set top level eall frame 


eet exeeption to catch all 

leet chance veetor 

perform eddeess peleestion 

exfe {f error 

eddresses of image header & file 


CLI flecs 

Tint flage from image header 
image file name & image header 
CLI catlback eddress 

offset te transfer veetors 
addpese of transfer vector errey 
seve address of transfer veetor 
eal! image entry 

ge de SEXIT.S 


1 Condition hendier for CLI errors, Not called for user errors a8 these 
g ere eeught by EXESCATCR ALL whieh peints error dump and does ean exit, 
9 CLI errore ere special © reset axit hengler and jump to EXESCATCH ALL, 
3 


eo ENTRY 
MOVAS 
MOVE 
MOVAB 
Jue 

2 ¥ORO 
MOVL 
RET 


1883 


ee we Te Bo OO 


e ENTRY 
MOVAB 
MOVL 
MOVL 
MOVL 
MOVL 
MOVL 
MOVL 
RET 


ew tO SH OO OO 


ee for R8X type GMCRS, 
utilities like OLRECTORY, 


SUPSEXCEPT, “NRL Y> 
G°CTLSAG CLIDATA,R11 
PPOSG CLIREGSGCRIS) RIE 
B°10S,PRE_L EXTHNO(R13) 


G°EXESCATCH ALL O2 
8 
#383, NORMAL, RB 


SUPSUTILSERVs °MERIO,R11> 
G°CTLSAG CLIOATA,R11 


=e tO wo te we te 


U 


PPOSG CLIREGOQ(RI1) R41 7 


PROLLLSAVFP(RI1) R11 


BCAP) gRi@ 


: 


Get address of PPO 

get eddress of process work ares 
reset exit rendier eddress 

teke specie! error exit pethr 
ontpy mask for special error han 
set success 


CLI service reutine te sees commend line toe utilities 
Note thee will NOT Randie requests from OCL 
Assumes callback request of proper type. 


eddpess of PPO 

address af process work saree 
eddress of saved FP 

eddpese of CLI request block 


WREH LL CMOLENCR11) ,CLISW, ROSTZECRIO) ) petuen tine lengen 
WRELLICMDADRORIL) se CLISA,RQADOR(R1IG) 9 return line address 


SCLIS, NORMAL, RC 


74 


set success return 


Exit hendier, called efter imege exit te rundown image. Handier doee 
Ret peturn (ag this would delece process), but resets the stack so that 
the R88 returns to the main loop te Get the next command for processing, 
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$8 98890000 °GF 
58 86 ABs 

Sa as a8 

50 @a AB 

S2 A@ AO 

e2 Sa oF 

ee 

2 

Ceoggeea Gr 82 
€é $a 

$9 oa 8c 

SEé FE ad 


$8 99090000 °GF 
56 68 Ad 

3637 

Sa oc as 


aeearca @G8GGa7B°EF 
8eggrca 8818°SF 


00i7 
11 $a a8 83 


e1 Se 
at 


$e 
$i 90 SE 


se 
se 


2ce0 
9€ 
08 


60 
08 
os 


8€o¢ 
es 


os 
82 


3397 
2399 
@3aa@ 
93a4a 
A3aéb 
e3ac 
a38a 
6384 
A386 
8388 
e3eF 
a3ce 
e3¢cs 
escr 
e303 
e304 
@304 
e304 
0308 
9304 
e306 
8306 
@300 
@3Ei 
asei 
O3eEi 
#432 
e495 
#409 
Bai2 
9ai9 
aa22 
ea2s 
O22a 
9838 
443¢ 
o83C 
aa3c 
aa3e 
@asF 
@aag 
gaae2 
e643 
@aa3 
9483 
6483 
eaas 
aaa? 
3Gaa 
was9 
ease 
ease 
ease 
aagr 
vasr 
aase 
e461 


SieMAYo {982 21389805 VAXel! Meero VOSe88 6 
SLoMAVe{982 21508858 ORAS (COURSE, SYSPRG, ceeawbecions. MCR) 


ENTRY SUPSEXIT, *MeR2,R4 b> 
hovas G°CTLSAGLCLIDATA,R1i3Y 3 Ri & eddress of PPD 
MOVL PPOSG CLIREGOGCRILICRIL 3: address of process work aree 
Siew MPRE MLEXIT, PRO wlPLAGS(R1iS) 9 exit handler mo longer active 
MOVL PRE LL SAVEPCRI1) SPP 3 FP 8 eddress of CLI work aree 


“OvVAB WRK OLMSGBUFOSC(CFR),R2 3 R2 Bw RMS meg BUffer dese, 
1068 MOVZBL snsGBUF8IZ, (R2) 3 reset size of message buffer 
PUSHL rT) 3 PUA down only imege files 
PUSHAB (R22) 3 eddeese of message buffer dese, 
CALLS @2,G°SYSSRMSRUNOWN ? Pun down RMS@32 Files 
8uLac RO.1a8 3 1? error © try next file 
SRUNOWNS BPSLEC USER 9 PUR down imege 
MOVL oSCaP),Re 3 Peteieve reason for exit 
MOVL WRK L SAVESP CFP), SP 3 Get saved $P 
RsB s Peturn to origtnel caller 
t 1,0, JSB SUPSIMGACT {nm matin loop 
’ 
s CONTROLeY AST routine. Prints out » Message end forces imace to exit, 
9 lt dees not get invelved {nm commend peaccessing ee OCL does. 
8 5 
eENTRY SUPSCTRLY, *H<RIG,RiL> 
MOvAs G°CTLSAG CLIDATA,Rit y RIL & eddress of PPD 
MOVL PPOSG CLIREG*A(RIL) RIL 3 address of process work aree 
SOTOW,S B1,PRC Ww INPCHANCREL) IOS SETMODE! TOSM CTRL YASTo 
PLBSSUPSCTRLYO@ 
PlasPSLSC SUPER > Pewactivate CTRLeY Ast 
838 ERROR 
WOVL PRO LL CUTRASCRI1) ¢R18 $ eddpees of output RAB 
MOVAB MSGL,RABSL RBF (RIB) 3 set messace eddreses 
MOVW #LENL,RABSHLRSZCR1A) 3 Set record size 
sur RABS(R1S) : Output in CTRL/Y AST message 
896" error Gheek for errors 
Bac PRE VEXIT, PRO WAFLAGS(RL1} +188 1 eny imege active? : 
SFORCEX,$ COOEssSS$ NORMAL t foree user to exit with success ecde 
138s RET ts retuen from AST 
3 
3 Ereop test reutine 
3 
ERROR: Brac RGe18S + skip on error 
RSB s return ok 
1083 8388 ERRPRT 3 Ge print the error messace 
waut 
? 
s Errop sessage output routine 
, 
ERRPRT? PUSHL RQ 3 stetus code 
PUSHL #% 3 S@eadument count 
MOVL $P,R4 
SPUTNEG S (R14) $ Output error message 
TSTL (SP 24 3 Pep erg count off stack 
oone RS 3 Pestere error code 
$6 


3 
9 CHMS nandier © fer this CLI {8 @ nowop 


: : 
wMANOss TSTL (SP)¢ $ PeMeve change mode code from stack 
REY 9 Petupn efter CHMS cel} 
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3a 


$8 
2a 


ar 
22 


46 


a0 


as 
2a 


a3 
$a 


as 


20 
2e 


28 
33 


$6 


2a 
ag 


2a 
a} 


33 
Se 


2a 
ac 


ea 
26 


as 
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$9 
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2a 
a3 


2a 
$9 


34 
a0 


$3 
ar 


69 
20 


ag 
20 


Cy 3 
as 


24 
aé 


as 


8096028 
e6eees06 
BSSIGGaa 
098090889 
a9 GA 30 
a$ a¢ $2 


GA 
89000319 
g¢ 3a 26 
GC GF $2 
@4 86 2a 
38090818 
6S 9a a6 
SE 26 4$ 
82900033 


$3 $9 $3 
ae 8F aF 
@00dG613 
$8 85 2€ 
80008894 


2F 8© 26 


a$ S$® 82 
eeceeses 


9862 
#4602 
2462 
9462 
8462 
8062 
e462 
3862 
326€ 
Oayva 
9878 
oa78 
@487 
0293 
9296 
3296 
8442 
B8ae 
a8a9 
@aa9 
3065 
aaac 
aase 
#2C9 
48ce 
9ace 
G8C3 
8803 
8206 
9aCe 
ace 


383 
3ae 
3a 
346 
3a7 
3486 
389 
3390 


3$1 
332 


333 
334 


333 
337 


358 
359 
366 
368 
362 
363 
364 
365 
36 
367 


MSGOE . 


MSG38 
MS623 


U 
0608 


BEF s 


3 
SEP: 


8 
BYES 


FieMAYSI9OBS? 2115899935 VAXel! Maero V83~08 
ZeoMAYo 4982 213908958 ORAGE (COURSE, SYSPRG CLI} MY 


Meesagen disolayed at terminal 
SPACE @ 32 

ER @ 43 

LF 2 ia 


TaB 8 9 
eASECTI <CROCLFD><TAB>CPABD/eGe EXAMPLE CLI eae/<CR><LF> 


LENGs, onSG8 
eASCIL <CREILFE<TAB><TAB> sane CONTROLOY AST wne/eCRO<LF> 


bENIe,oM$G} 

eASECLYI <CROCLFOVENTER IMAGE NAME / 

LENZs, oMSG2 

eASCSY /SYSSSYSTEMSLOGINOUT/ 3 {mage name for LOGOUT 


LOGOSZ«, «L068 

eASCTY /,EXEs 3 defauits for imege file nane 
DEFLENS, eOEF 

eASCIS <SPACE><TABD"/* ¥ separators 

eASELY s/BVES 3 Command to leave syatem 

BYE LENS, «BYE 3 Tength of command — 


oe ENO SUPSSTARYT 
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MYCLIDBG.COM Procedure 


$1 “yCL1086,CO™ 


3 SET VERIFY 

LIBRARY /CREATES( BLOCKS 82S, MOOULES215)/MaCRO DEFS.MLS PPODEF, MAR, OCLOEF,MAR 
MAC/LIST “YCLIOBGOOEFS/LISCSYSSLTSRARY IL IB/LI8 

LINK/ANOTRACE/NOSYSSHR/MAP MYCLIDOG, SYSSLIBRARY DELTA, SYSSSYSTEMSSYS,STS/SEL 
SEY PROCESS/PRIivalCSYSPRV, CMKRANL, PRMGBL) 

COPY MYCLIDSG,EXE SYSSSYSTEM:e,2 

RUN SYSSSYSTEMS INSTALL 

SYSTSYSTEMEMYCLIOBG, EXE/SMARE 

$ SEY NOVERTFY 


oe we @ & 
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Sample Run 


Username: MUIZNIEKS/CLI#MYCLIDBG 
Passwords SS rE ere 

Velcose ta VAX/UMS version V3.0 om node HARDY 
DELTA Version X2.2 


7FFDIESB/PUSHAL 7FFD22CE RB/7FFDIEOO 


7FFDIEOOr1 FX 
JFFDIEOO X14+22B!MOVL 0028(R10) oRS 


X1+21B3B5P 


BEk EXAMPLE CLI 822 


ENTER IMAGE NAME SYSSSYSTEM:SPIP 8.EXE/FU 
21 BRK AT 7FFD201B 
X%24218/MOVL OOZB(RIO) eRI R2/00000017 


an 


Birectors DRO? CCOURSE.SYSPRG.CLIIJ 
SL“MAY-62 21533 


MYCLI.EXE#2 (241694) b6o/be 
MYCLIDBG.EXE31 (243695) 260/266 
TODO. EXEs 28 (241052) 186./18. 


Total of $0./80. Bleeks in 3. files 
ENTER IMAGE NAHE BYE 

1 BRK AT 7FFD2018 

Xi+21B/MOVL 0628¢(R10)/R3 JP 


MUITZNIEKS lessed out at JI-MAY-1982 21233548.48 
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WRITING SYMBIONTS 


TEST 


In writing a symbiont, it will be necessary to eventually test it 
out under the control of the Job Controller. At the same time it 
would be very helpful if that subprocess was also under. the 
control of the DELTA debugger. That way it would be possible to 
step through the program under actual conditions. Your assignment 
is to alter the standard VMS print symbiont such that when it 
Starts up, it will be under the control of the DELTA debugger and 
you control the DELTA debugger input. 


To accomplish this, you will need the following information: 


1. The source files for the print symbiont are in the directory 
[COURSE.SYSPROG.SYMB] along with a command procedure (listed 
below) for creating the PRTSMB.EXE file. 


SSET VERIFY . 

SASSIGN SYSSLIBRARY:LIB.MLB EXECMLS 

SMACRO/ ENAB LE=DBG/OBJ=SMBCHRGEN SMB PRE+SMBCHRGEN 
SMACRO/ ENAB LE=DBG/OBJ=SMBF LGPAG SMB PRE+SMBFLGPAG 


SMACRO/ ENAB LE=DBG/OBJ=SMBGET SMB PRE+SMBGET 
SMACRO/ ENAB LE=DBG/OBJ=SMBINIT SMB PRE+SMBINIT 
SMACRO/ ENAB LE=DBG/OBJ=SMBMAIN SMB PRE+SMBMAIN 


SMACRO/ ENAB LE=DBG/OBJ=SMBMBAST SMB PRE+SMBMBAST 

SMACRO/ ENAB LE=DBG/OBJ=SMBHANDLE SMB PRE+SMBHANDLE 

SMACRO/ ENAB LE=DBG/OB J=SMBSUBR SMB PRE+SMBSUBR 

$ LINK/NOSYSSHR/NOTRACE/EXE=PRTSMB/MAP=PRTSMB/FULL/CROSS - 
SMBINIT, SMBFLGPAG, FIDTONAME, SMBCHRGEN, SMBMAIN, - 
SMBGET, SMBSUBR, SMBMBAST, SMBHANDLE, - 
SYSSSYSTEM:SYS.STB/SELECT 

SSET NOVERIFY 


Listing 1 MAKESYMB.COM 


2. The DELTA debugger directs it I/O through the logical name 
DBGSDELTA 


3. To invoke the DELTA debugger rather than the normal Symbolic 
Debugger, you must use the logical name LIBSDEBUG 
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WRITING SYMBIONTS 


Solution 


The necessary change is to force the new symbiont to generate 
an SSS DEBUG signal. The listing at the end of this section 
Shows the symbiont initialization section generating the 
Signal. 


The command procedure [COURSE.SYSPROG.SYMB.SOLUTION]MYSYMB.COM 
(listed below)/is used to create the executible file but with 
the name MYSYMB.EXE 


SSET VERIFY 

S$! This logical name is needed by the MACRO assembler 
SASSIGN SYSSLIBRARY:LIB.MLB EXECMLS 

SMACRO/ ENAB LE=DBG/OBJ=SMBCHRGEN SMB PRE+SMBCHRGEN 
SMACRO/ ENAB LE=DBG/OBJ=SMBF LGPAG SMB PRE+SMBFLGPAG 
SMACRO/ ENAB LE=DBG/OBJ=SMBGET SMB PRE+SMBGET 

$! 

S!tNote I used a different filename for the INIT routine 
$! that includes the LIBSSIGNAL 


$! 

SMACRO/ ENAB LE=DBG/OBJ=MYINIT SMB PRE+MYINIT 
SMACRO/ ENAB LE=DBG/OBJ=SMBMAIN SMB PRE+SMBMAIN 
SMACRO/ ENAB LE=DBG/OBJ=SMBMBAST SMB PRE+SMBMBAST 
SMACRO/ ENAB LE=DBG/OBJ=SMBHANDLE SMB PRE+SMBHANDLE 
SMACRO/ ENAB LE=DBG/OBJ=SMBSUBR SMB PRE+SMBSUBR 
$! 


S$! I altered the name of the final executible file 

Ss! 

S$ LINK/NOSYSSHR/DEBUG/EXE=MYSYMB/MAP=PRTSMB/FULL/CROSS - 
MYINIT, SMBFLGPAG, FIDTONAME, SMBCHRGEN, SMBMAIN,- 
SMBGET, SMBSUBR, SMBMBAST, SMBHANDLE, - 
SYSSSYSTEM:SYS.STB/SELECT 

SSET NOVERIFY 


Listing 2 MYSYMB.COM 
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3. 


WRITING SYMBIONTS 


The final step is to set up the logical names and ‘'load' in 
the symbiont. This is done by the command procedure 
{COURSE.SYSPROG.SYMB.SOLUTION]LOADSYMB.COM which is listed 
below. 


SSET VERIFY 
$! 
$! Make sure you have the necessary priviliges 
SSET PROCESS/PRIV=(OPER, CMKRNL,GRPNAM) 
$! 
$! Reset the protection on the terminal 
$! So it can be allocated for I/0 
SSET PROTECTION=(W:RW) /DEV terminal 
$! 
$! Copy the symbiont file to SYSSSYSTEM 
SCOPY [MARSH.SYMB]MYSYMB.EXE sysS$system 
$! 
$! Alter the UIC and set up the logical 
$! names for the symbiont to use 
SSET UIC [1,4] 
SDEFINE/GROUP DBGSDELTA terminal 
SDEFINE/GROUP LIBSDEBUG DELTA 

i] 


S$!Create the proper queue forcing the 

$! Job Controller to use your file 

$! for the symbiont | 
SINIT/QUEUE/PROCESS=[MARSH.SYMB]MYSYMB.EXE terminal 
$1 


S$! Start the queue. This should cause the 
$! symbiont to startup with the DELTA debugger 


SSTART/QUEUE terminal 
SSET NOVERIFY 


Listing 3 LOADSYMB.COM 
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WRITING SYMBIONTS 
Listing 4 of MYINIT.MAR (page 1 of 4) 


oTITLE SMBINIT — SYMBIONT INITIALIZATION 
cLGENT °V¥03-000° 


COPYRIGHT Ce) 1978. 198G,5 21982 BY 
OIGETAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNOER A LICENSE ANO MAY BE USED AND COPTED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS MEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CMANGE WITHOUT NOTICE 
ANG SHOULD NOT 8E CONSTRUED AS A COMMITMENT SY OITGITAL EQUIPNENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY OIGITAL. 


oe 
FACILITY: © VAX/VMS PRINT SYMBIONT 
ABSTRACTS ONCE ONLY INITIALIZATION ROUTINE ANDO OAT 


ENVIRONMENTS NATIVE/USER MODE NON-PRIVILEGED CODE 


AUTHORS HoSoBOSWELL * LEN KAWELL, CREATION DATES 21-APR<77 


MOOIFIED 8Y: 


VO2-004 MLJO068 Martin Lo Jack, 14-Jan-1982 22°54 
Delete unnecessary initialization of RABSL_UBF. 


VO2-003 GwFOo8T Gary W. Fesler 23-Jul-1982 
Set addresses of 2 user buffers. 


VO2-002 Gw*0003 Gary We. Fosler 11-Sep-1980 


Change protection on railbox to reneve erite access to WORLD 


oPAGE 
eSOTTL DECLARATIONS ‘ 


PURE_SECTION NAMESSMS_INITCOOE 


INCLUOE FILES: 


CPRISMB.SRCISMSPRE. MAR 


MACROS: 
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WRITING SYMBIONTS 


Listing 4 of MYINIT.MAR (page 2 of 4) 


TED SYMBOLS: 


SJECMSGOEF 3JOB CONTROLLER MESSAGES 
LTORAGES 
-BOX: SNAME FOR JOB CONTROLLER MAILBOX 
e LONG 208-108 
eLONG 108 
o ASCII 


a 
-LONG  SYSSC_JOSCTLMB 
eASCII 727 


oPAGE 
oSOTTL SYMSIONT INITIALIZATION ROUTINE 
TOMAL DESCRIPTION: 


THIS ROUTINE PERFORMS ALL ONE TIME FUNCTIONS FOR THE 
PRINT SYMBIONT. . 


NG SEQUENCES 

natn ENTRY POINT Of SYMEIONT 
PARAMETERS: | 

NONE 

TIT INPUTS: 

NONE 

T PARAMETERS: 


R11 CONTAINS THE AODRESS Of THE IMPURE DATA SLOCK 
INIT OONE MESSAGE SENT TO SYMBIONT MANAGER 


‘IT sutpurs: 


CHANNEL ASSIGNED TO SYMBIONT MANAGER MAILBOX 
MATLBOX CREATED FOR RECEIPT OF MANAGER MESSAGES 


TION CODES: 
NONE 
FEECTS: 


THIS ROUTINE OLSPATCHES OLRECTLY TO THE SYMBIONT IDOLE LoaP 
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WRITING SYMBIONTS 


Listing 4 of MYINIT.MAR (page 3 of 4) 


SSYMBIONT INITIAL ENTRY 
SENTRY MASK 


F SSSSERSSEKSTSSEKSELTKSSE SASS SCHSSSESKSSEKS SS SLSKSSS SESH KESSKSKSETHESOKES 


SMO_STARTS 
oWORD () 
pushi 8ss%_ debug 
calls #1,G*libssignal 


F SSSKSSSKSESSEKSAS SS CSSSKSSH SSNS LE KS VERSE SA SHSKTE SSS LESS TERE SKEKELH 


ee eo ec 


ae e6 60 


MOVAL 


W* SMBSHANOLER, CFP) 


OISABLE ASTS UNTIL MESSAGE IS SENT 


SS€TAST_S #0 


MOVAL 


RUN“TIME INITIALIZAFION OF DATA FYELOS 


Mave 


mOVW 
ROVW 
ROVAL 


RGVAL 
MOVAL 
MOVAL 


AS SURE 
NOVY 
ASSUME 
mAOVY 
&S SUNE 
MOVE 


MOVE 
ROVE 
ROVW 
SETSET 


MOVZSL 
MOVZuL 
Ciew 
mMOVAL 
MOVAL 


ASSURE 


CLRs 


W*SMBSG_DATA RIL 


SSEY CONSITTION HANOLER AOORESS 


sOISABLeE ASTS 


sSET ADOR OF L4PURE DATA BLOCK 


OSTRSK_ SIZEsSO_W_MBREADLENCRIIT> SSET INITIAL MB READ LENGTH 


SSHBSK TSUFSIZ.SD_W_TBUFCNTCRIL) SSET LENGTH GF TEMP BUFFER 
ASMBESK TSUFSIZ »SO_W_TOUFSTZCRIL) SSET LENGTH OF TEMP BUFFER 
SO_T_T5UFCRIL) oSOLA_LTOUFADORCRIL) SSET AQORESS OF TEMP BUFFER 


SD_G_FAGCRI1) RE 
SO_G_RABCRIL) ORT 
S0_G_NAMCR11),R8 


FASSB_STD°1 EQ FABSB_BLN 


SGET AOORESS OF FAG 
sGET ADORESS OF RAG 
sGEY AQDRESS OF NAM SLE 


€FABSC_BIO*<FASSC_BSUNSS>  FABSB_BIOCRG) SCREATE FAS 


RABSG_HIO’L EQ RASSE_SLN 


SRABSC _BIO*<CRABSC_BLNZS> RABSB_BIOCRTS SCREATE RAB 


NAMSB_BIDeL EG NAMSB_ELN 


SRAMSC_BIOCCNARSC_SLNSS>,NAMSB_ELOCRED SCREATE NAM BLK 


RB FASSL_NAMCRE) 
R6eRABSL_FABCRT) 


sSET NAME SLGCK ADDRESS IN FAB 
sS€T FAB ADORESS IN RAB 


@Q@SMBSK_LSUFSTZ,RABSH_USZCRT) SSET RECGRO BUFFER SEZE 
RABSV_ RAN, RABSL_ ROPCRT) 


sUSE READ-AHEAD 


@QTOS_NARGS,SO_G_QLOSLKCRI1) SSET QIO0 BLOCK LENGTH 
@TOS_WRITELBLK,SD_G_QIOSLK*QIOS_FUNCCRIL) SSET I7G FUNCTION 


SO_B8_ERR_FLAGSCRI1) 


sCLEAR BOTH SETS OF FLAGS 


SO_LT_LSUFCRIL) ,SO_LI_BUFPNTCRIZ) © SET FIRST ADDRESS 
SO_T_LSUFICRI1}-SO_O_SUFPNTo4CRIL) 3 SET SECOND ADDRESS 


STATES_IOLE EG 0 


SO_S_STATECRI1Z) 


ASSIGN THE SYMGIONT MANAGERS MAILBOX 


SASSIGN_S JBCMAILBEIXo=— 


8L8S 
ST GNAL 
BRS 


SC_W_JOCCHANCR11) 
RO,10% 
J8CS_MBASGN,#0,R0 
20% 
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sSET INITIAL STATE TO IDLE 


SASSIGN CHANNEL TO THE JOB CONTROLLERS 
SMATLBEOX-CHANNEL NUMBER STORED HERE 

7BR ITF NO ERROR 

TSTGNAL THE ERROR 

sExTy 





WRITING SYMBIONTS 


Listing 4 of MYINIT.MAR (page 4 of 4) 


: 
3 CREATE SYBBIONT°S “ATLSOX 
: 


1083s 
SCRE4MBX_S - SCREATE A MATL BOX FOR COMMANDOS 
PROMSK = S*XOF EQS, <= 3 PROTECTION 
MAXMSG = @SIMSK_LSIZEs= sMAXIMUMY MESSAGE SIZE 
BUFQUD = B2ESIMSK_STZE.—3 2 MESSAGES MAX 
CHAN @ SOLWLMBCHANCRI1) & CHANNEL OF CREATED MAILSOX GOES HERE 
BLES 20.308 : s8R IF NO ERROR 
SIGNAL JO6CS_SYMBCRE, 80,20 SSTGNAL THE ERROR 
2682 SEXIT_S sFORCE IMAGE EXIT 


’ 
8 GET MAILSOX CHANNEL INFO 
8 


MOVAL  SO_W_MBCHANCRI1) RO SSE ADDR OF CHANNEL 
BS8u SPSSGETCHAN ZGET CHANNEL INEG 


SET UNSOLICITED AST FOR MY MAILBOX 


26 ee oo 


8S8u SMSSSETHBAST sSEVY THE MAILBOX AST 


nOVW SOLT TOUFS1LZCR119_,R6 SSEY MATLBOX UNTT NUMBER FOR INIT MSG 
MOVE RO» SOL W_MBUNITCRI2) sSAVE UNTT FOR SOELMSX 
8SByu SMSSINTIT_OONE sSENO MGR THE INIT CONE SESSAGE 


€NABLE ASTS NOW 


oe ee ee 


sSETAST_LS a1 sENABLE ASTS 
BRW SMOSMAIN 76GTO MAIN LOOP 


-ENO SMB_START 
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Your instructor 


WRITING AN AME 


TEST 


will supply you with a file containing tl! 


following MACRO=-11 program (called RSXPROG. DAT): 


that an opcode of @ was inserted as the last 


file. 


Address (octal) Opcodes (octal) Instruction 
GAAGSA 12700 68A0004 START: MOV #4,R0 
GSCBG4 G12701 88885 MOV #5,R1 
GAGG1G GGGGHA IOT 
GGGA12 912701 aABG24 MOV #2%.,R1 
G9GG16 12708 G849812 MOV #10.,R0 
GGSG22 GBAGBG4 IOT 

GOGH ~END START 
The file will contain only the opcodes’ (no image heade 
information normally placed in an EXE file by a task-—-builder « 
linker). The file was created running the FORTRAN progré 
MAKEFILE, and entering the octal opcodes as listed above. Not 


instruction in tf 
Executing this opcode will generate a reserved instructic 


compatibility mode exception. 


Your assignment is to write an 
program to execute to completion. 


will allow the 
In particular, you should: 


AME that abo. 


1. Choose whether you want to write an AME using the standard vp» 


condition 
handler method. 


handler method, or the special compatibility moc 


(If you have time, try to write both types c 


handlers.) 


you choose to write a standard VMS condition handler then: 
Be sure to link your AME at a base address of 64K. 


Use SCRMPSC to establish the virtual address space for tt 
compatibility mode program (starting at address ?). 


When a condition occurs, display the contents of tt 
Signal and mechanism arrays on your terminal (includir 
the contents of registers R® and Rl, and the exceptic 
code causing the handler to be entered). 


Check for the IOT compatibility mode exception. If the 
was the condition causing the handler’ to be enterec 
update the PC (by adding 2 to the value in the signé 
array), and return a success code in Rf. 
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WRITING AN AME 
5. For any other exception, exit the program. 


3. I£ you choose to write a customized compatibility mode handler 
then: | 


1. Be sure to link your AME at a base address of 64K. 


2. Use S$CRMPSC to establish the virtual address space for the 
compatibility mode program (starting at address Q@). 


3. Use S$DCLCMH to establish the customized handler. 
4. Display the contents of R@ and R1 from the Pl space area. 


5. Check for the IOT compatibility mode exception. Tf that 
was the condition causing the handler’ to be entered, 
update the PC (by adding 2 to the value in the Pl_ space 
area), place the appropriate information on the stack, 
restore registers R#-RA from the Pl space area, and return 
control to the compatibility mode image via an REI 
instruction. 


6. If any other type of exception is encountered, exit the 
program. 


Check the values of R@ and R1 after each exception, to verify that 
the AME is working properly. Remember that only the low-order 
word of those registers is valid on PDP-11 systems, for which 
registers are only 16-bits big. 


Listing of MAKEFILE.FOR Program 


MAKEFILE. FOR 


This program alloss yeu to enter the octal opcodes for 
@ program, and create a binary file sith just those 
epcodes stored. You enter a sord at a tine. 


aan oO 


Tre file is defined by the logical name RSXPROG, or 
defaults to RSXPROG.OAT shen no translation. 


AM 


INTEGERa2 NUMBER - 
OPEN CUNIT#1, FILE2°RSXPROG", STATUS =°NEWs 
1 RECORDTYPE=°FIXED", RECOROSTIZE=2) 
1 READ €5-10,ENDS30) NUMBER 
10 FORMAT (06) 
WRITE C1020) NUMBER 
20 FORMAT CA2) 
GoTo 1 
30 CLOSE CUNIT#1) 
Eno 
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.MAINe 


&F 43 24% 


62 69 74 
6$ 20 6§ 


$3 


6% 


64 


69 
78 


7@ 
6F 
6E 


62 
63 


$3 


60 
60 
6F 


69 
29 


60 


90000060°C1S8E0000° 


6F 
69 


Te 
43 


83C06600 
00000620 


6000 
6660 
6006 
6060 
6000 
0606 
6000 
6000 


_ 6860 


6699 
0000 
6060 
0000 
0000 
00006 


00000006 


66000060 
OOoooLFF 


44 46 41 46 40 


63 
Tm 


62 
64 


20 
74 
76 


78 
6F 
6E 


6066 


6E 6F 4E 
69 6C 69 
63 63 78 
eo0cds26 
60 6F 43 
65 26 793 
6F 69 76& 
ooeoeoic 


00006 
6000 
6006 
o6s0 
6050 
0050 
0654 
6058 
6058 
0058 
0066 
6068 
0660 
6060 
0660 
6079 
0085 
6086 
6089 
6099 
OOAS 
ooag 
eoa9g 


60009000 


00000073°EF o€ 


63 $0 es 


0046 31 


03 $0 E8 


6033 31 


0060 
0002 
0002 
6002 
0009 
9009 
0009 
GO1E 
0021 
0024 
0024 
0024 
6031 
0034 
0037 
0037 
0037 


OBDOWRAMWOWNH 


3% 
32 


33 
34 
35 
36 
37 
38 
39 
40 
42 
42 
43 
46 
45 
46 
47 
48 
49 
50 


$2 





WRITING AN AME 


os 


PSL = “x#3C00000 


CRLF = 


SEC# AS: 
RANGES 
TTs 

TTCHANS 


NGONCOMPS 


Listing of MYAME.MAR Program (Page 1 of 2) 


L4—-MAVo1982 135352318 VAX—11 Macre V03-00 
L6—HAVO1982 1323346831 WGORKSCMUIZNIEKS.SVSPRC. 


MYANE.HAR 
This programs runs the compatibility mede pregrsa 


RSXPROG. DAT, and responds te LOT instructions by 
updating the PC and continuing execution. 


written by Vik Muiznieks O2-APR—-1 982 F 
SCHFOEF $ Cendition handling codes 
SSECDEF $ Flags fer SCRMPSC 


Lecal syebols 

3 PSL te enter Conp. Kode 
32 $ nermal P& for 8Qro 
ePSECY NONSKARED_DATA PIC, NOEXE, LONG 


File cantrol bleck$ need channel to file for SCRMPSC 
SFas FNMSCRSXPROC-BAT>, FOPSCUFOD, FACSCGET, PUT> 


Aegquments te SCRAPSC 


oL ONG 8 $ start et address 6 
oL ONG 532 $ enly need one page 
Bescribe tereinal for 176 te user 

oASEIO = /SYSSCOMMAND/ 8 identify terminal 
oWGRO . 6 


Messages generated by conpatibity sede handler 
eASCII /Non~compatibility mode exceptions 


NONCOMPLEN = . = NONCONP 


canes 


COMPLEN 


cASCIT Compatibility mode exceptions 


= . - COMP 


oPSECT COdE PYCe SHR. MOWRT. LONG 
eENTRY START, *8CD + Re registers saved 


Establish condition handler 
MOVAL MYMANO, CFP) 


Assign channel to tersinal te consunicate 
SASSIGN_S CMANSTTCHAN, DEVNANSTT 

BLBS RG, S$ 

BRe ERROR 


Gpen file centaining CM image as private section 
sGPEN FAS=SECFAS 

6L8S RO, 108 

Bau ERROR 


Create virtual address space and aap CM image 
SCRMPSC_S INADRERANGE, FLAGSSOSECSM_WRT, — 
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Listing of 


03 50 
0009 


83C00006 8F 
a3 


$2 @& BE 


60000060°S8F 6& A2 
32 


58 $0 
30 OG000GG0°SF 


26 $90 


os ac 
00000000 “EF o1 
oe ac 
00000000 “EF 01 


08 A2 62 
oc 
oc A2 02 


$0 00000000°8F 


€8 
32 


00 
04 
62 


6004 


06 


01 


13 


€9 


04 


€9 


oo 
Fs 
so 
FS 


ot 
12 


co 


00 
04 


0037 
0058 
OOSE 
0061 
0061 
0061 
0067 
0069 
GOGA 
006A 
006A 
8673 
0073 
0073 
0073 
0973 
6075 
6075 
0075 
0079 
0079 
0079 
0081 
9083 
0083 
6083 
6083 
OOAA 
00a0 
OGB4 
oos8s 
0085 
606s 
0085 
ae0oc 
OOGF 
OooF 
OOoF 
O0€2 
CoE? 
Ooec 
COF3 
OOF3 
ooF3 
QOFT 
00F9 
ooFrSs 
ooFr9 
OOFD 
OcFO 
OOoFD 
0104 
0105 
0105 
0105 
Gide 
O16€ 


WRITING AN AME 


MYAME.MAR Program (Page 2? of 2) 


104 
105 
106 
107 
108 
1609 


ERRORS 


7 


ee 


L6—MAY=1962 132335218 VAX-11 Macro VO3-00 Page 2 
L4—-MAV-1982 132346231 WORKSCHUIZNIEKS.SYSPRG.AMEIMYAME. MCL) 


CHAN#@SECFAGCFABSL_ STV 
eLss RO. 208 


BRwW ERROR 

Establish PSL and PC fer conpatibility sede inage 
PUSHL PSL 3 PSL predefined 

CuURt -CSP) : PC = 0 

RET 3 teansfer control to image 


Error occurred in vain part of AME 
SEXIT_S COOE=R0 


Cendition handler 
eENTRY MYMAND, “RCRZ2> $$ save one register 


Get offset ta signal array 
MOVE CHESL_ SIGARGLSTCAP), R2 


Test for compatibility sede exception 
CmPu CHFSL_ SIG_NAMECR2Z), #SS8_COMPAT 
BEQLU 308 


Nen-caonpatibility sode exception - resignal error 

SQTOW_S CHANSTTCHAN, FUNC#ATOS_WRITEVBELK, PL SNONCOMP, — 
PZaSNONCOMPLEN, P42ECR_LF 

BLBC RO, ERR 

“OVL SSSS_RESIGNAL, RO 

RET 


Compatibility wede exception 

SQIOW_S CHANSTTCHAN, FUNCESTOS _WRITEVSLK, PIsCOMP, - 
PZSECOMPLEN, PoutCR_LF 

OL8C RO, ERR 


Print contents of signal and sechanisa arrays 
PUSHL CMFSL_SIGARGLSTCAP) 

CALLS #1, OUTSTG 

PUSHL CHFSL_ MCHARGLSTCAP) 

CALLS #1, OUTMEC 


Check for IOT CCM cade 2) in signal array Coffset 8) 
CMPL 82. 8CR2) 
BNEQU ERR 3 if nets exit 


Update PC so don’t loop CIOT instruction uses 2 bytes) 
ADODL2 @2—- 12CR2) s PC in signal srray 


Return control to compatibility sede isage 
MOVL @SSS_CONTINUE, RO 
RET 


Error in Handler or Non-I0T Compatibility Mode Exception 
SEXIT_S COOE=RO 


e END STart 
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coe 


1006 


2060 
106 
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Listing of OUTSIG.FOR Program 


GUTSIG.FOR 


This program outputs the contents of the signal array. 
Of particular interest are the exception codes PC. PSL. 


SUBROUTINE OUTSTIGC ARRAY) 

INTEGER ARRAYC10) 

CKARACTERS15 LABELC4S) 

DATA LABEL/°NUM. OF ARGS.5°. “CONDITIONS °,°PCS°o°PSLE TF 
N 3 ARRAYCI) 


Display heading fer signal array 
CALL MEAOING C°SIGNAL ARRAY”) 


Oisplay elements in array 
Always have number of argse exception code, PCy and PSL 


WRITE €6e12000) LAPELC1), CARRAYCID, T2ie3) 
WRITE €6e10G0) LABELCZ),CARRAYC2), I8i,3) 
FORMAT €1X0AeT165216,016) 


Variable number of arguments based on exception code 
I® (XN .GT. 33 THEN 
0G 100 f*3,.N-1 ‘ 
WRITE €62¢2000) “ARGUMENT, T—2,CARRAY CII» S22 03) 
FORMAT ClXeAoT2e5X%02160216 0016) 
CONTINUE 
ENO TF 
4 


Bisplay PC and PSL 
WRITE €6520002 LABEL C3), CARRAYCN),IBl, 39 
WRETE €691000) LABEL C4), CARRAYCNO1), Y8l,3) 


RETURN 
Eno 
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Ne fF 


1000 


3000 


WRITING AN AME 


Listing of OUTMEC.FOR Program 


OUTMEC.FOR 


This subroutine displays the contents of the rsechanisa 
array in decisal, hexe and octal. 


The input parameter is the address of the sech. array 


SUBROUTINE OUTMECCARRAY) 

INTEGER ARRAYCS) 

CMHARACTERSI6 LABELCS) 

OATA LABELJONS*, “ESTAR. FRAMES °, “CEPTHS°, "ROS °, RIS PS 


Print heading identifying sechanism array 
CALL WEADINGC “MECHANISM ARRAY? °) 


Weite elements of array (fixed arguments) 

WRITE €6e2000) LASEL CID, CARRAYC LD, 121.3) 
WRITE €6,1000) LABELC2)3— CARRAYC2),5 Tel, 3) 
WRITE €651000) LABELC3), CARRAYC3)> L21,.3) 
WRITE €652000) LABELC4)», CARRAYC4), [81,3) 
WRITE €6e2000) LABELCS), CARRAYCS). L21,.3) 
FORMAT CIX,A16051602162018) 


RETURN 
Eno 


This subroutine prints a heading fer the signal or 
mechanisa array 


SUBROUTINE HEADINGC HEAD) 

CHARACTERS(C#) HEAD, LOC#L6 

LOC = “LOCATION”? 

WRITE €6e3000) HEAD, LOC, “DECIMAL °, “WEXADECIMAL®, “OCTAL” 
FORMATC//1X eae //LX Dp IALE SALES) 

RETURN 

Eno 


Listing of MYAME.COM Procedure 


st 
st 
st 
$f 
$1 
8 


MYAME.COM 


This command procedure assembles and links @ 
Cat a base address of 54K), a user-eritten AME 


MAC/LIST MYAME 


$ FOR OUFSIG, OUTMEC 


$ 


LINK/MAPSFULL MYAME,OUTSIG. OUTMEC ,SYSSINPUT/OPTION 


BASE =%X10000 
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Sample Run 


@ RUM KYAME 
Conmratidilitw sode excertian 


SIGNAL ARRAY 


LOCATION DECIMAL 
NUR. OF ARGS.’ 4 
CONDITION: 1068 
ARGUMENT 1 2 
PCs 8 
PSLS -2084569088 
HECHANISH ARRAY: 

LOCATION DECIMAL 
NE 4 
ESTAB. FRAMES 2347179908 
BEPYH: e 
ROs & 
R28 -63S31 
Comrstibilityw gaede exeertion 
SIGNAL ARRAY 

LOCATION DECIMAL 
NUR. GF ARGS. : 4 
CONDITIONS 1068 
ARGUMENT 1 2 
PCs 18 
PSL3 -20845469088 
MECHANISK ARRAYS 

LOEATIGN DECIMAL 
NS 4 
ESTAB. FRAMES 2147179908 
DEPTH: co] 
RO? 10 
R23 63816 
Compatibility node exception 
SIGNAL ARRAY 

LOCATION DECIMAL 
NUM. OF ARGS.’ 4 
CONDITION: 1068 
ARGUMENT 1 t') 
PCs 20 
PSL: -20845 469088 
MECMANISM ARRAY: 

LOCATION DECIMAL 
NS 4 
ESTAB. FRAME: 2147179908 
DEPTH: Q 
RO: 10 
R13 -65516 


HEXADEC I RAL 


4 
42Cc 
s 


& 


8 
83000000 


HEXADECT MAL 


4 
7FFBSBS4 
0 
4 


FFFFOOOS 


HEXADECTMAL 


4 
42c 

2 

i2 
83000000 


HEXADECTMAL 


4 
7FFBSDS4 
te] 


a 
FFFFOOL4 


REXADECIMAL 


4 
42c 
0 


14 
83C00000 


HEXADECTMAL 


4 
7FFBSDS4 
0 


A 
FFFFOO14 


ZNONAME-W-NOMSGs Messade nuaber 00000000 
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OCTAL 


4 
2054 <-~- 
Coe 

10 <-< 
20340000000 <-- 


2 


OCTAL 


4 
177764656604 
0 
4 


37777600005 


OCTAL 
.8 
2054 
2 
22 
20340000000 


OCTAL 


4 
17776656604 
Qo 


12 
37777600024 


OCTAL 


4 
2054 


0 <-- 


24 
203460000000 


OCTAL 


4 
177766356604 
0 


12 
37777600024 





SSS_COMPAT 

IOT code 

Matches program 
Matches supplied 
PSL 


Correct R@ 

Correct R1 
(low order 
word) 


Kae 
<a 


CM code (AG) 


Reserved instruction 


WRITING AN AME 


Listing of MYCOMPAME.MAR Program (Page 1 of 3) 


\ 6-JUN©1982 15213203 VAX—-11 Macre VO3-00 Page 1 
6— JUN©1982 15212256 ORAOSLCCOURSE.SYSPRG. AME IMYCOMPAME.C1) 

e660 bar MYCOMPAME. MAR 
e009 2 
0009 33 This progranm runs the compatibility eede program 
€903 63 RSXPROG.DATs snd responds to LOT instructions by 
0000 S$ 3 updating the PC and continuing execution. 
0009 6 
0105 73 Weitten by Vik Muiznieks 02—-APR-1982 
0005 § 
e900 9 ssSeEcoEeF 3 Flags fer SCRMPSC 
6000 10 
c3ca0 22053 Local syabels 

82¢€90900 0909 "12 PSL = 4x893C00000 3 PSL to enter Comp. Made 

00000320 0000 23 CRLF = 32 3 normal P4& for 8QI0 
cco) 164 

69e0easoe 15 ePSECT NONSHARED_OATA PIC, NOEXE, LONG 

0069 1$ 
0900 17 3 File control block? need channel to file for SCRMPSC 
e309 18 SE€CFABS SEAS FNMSCRSXPROG DATS, FOPSCUFO>, FACRCGET, PUT> 
009 19 
e320 20 3 Arguments ta SCRMPSC 

06090009 ¢Cdsd 21 RANGES .LONG 0 3 start at address 0 

COODCLFFE 00546 22 e LONG $11 $ enly need one page 
0082 23 
cas@ 26 3 Oescribe terminal for 1/0 te user 

9090905C °C20E0309° CHoea 2¢ TT: eASCTO /SYSSCOMMANOS . * identify terminal 
6% SE 61 60 63 6065 
0000 0068 26 TTCHANS WORD 0 
C960 27 
0a¢€d 23 3 Messages cenerated by conmpatibity mode handler 
74 62 70 65 6F 63 COED 29 COMP: eASCII Compatibility mode exceptions 


65 64 $F €9 20 79 0973 
SE 6F 59 Te 0985 
oodocsw1c 0089 379 CCMPLEN = . = COMP 


coceoo17° 0089 31 CTR: eLONG STRLENO = STR 
09690991° 09289 32 eADDRESS STR 
20 4353 7S 6C 51 $6 ¢€992 33 STe@s eASCIIT Value in RO = XW Chex)/ 
20 €7 S@ 21 20 25° Go9n 
Qoae 26 STS_END: 
Cocwlq17° O9a3 36 CYR2: eLONG STZ2L-END = STR2 
00000399" O98 34 eAODRESS STR2 
20 £3 7F €6€ $3 S4& 9999 277 $T¥223 eASCIIT Value in @2 = IXW Chex)/ 
20 57 35@ 21 26 32 ener 
CoC? 22 ST2Z2_END: 
ogcaeneo §¢c48Cc7 29 FASLEN: .LONG 0 
eoo0acyso"’ coc4a 40 JuT: oLONG QUFF_END - BUFF 
€90999C3° cIce «1 ADDRESS BUFF 
coeoci123 ¢c3c? 62 SUF: o8LK8 #0 
C123 63 SUSF_END?: 
0123 44 
0123 65 3 Testporary storage of updated PC 
o907cce) ¢122 46 NE“PCS LONG te) 
0127 4&7 
09090909 48 oPSECT CtldE PIC. SHR, NOWRT, LONG 
69¢9 60009 69 eENTRY START, “MCD + no registers saved 
C462 ec 
CC $1 3 Establish condition handler 


€1202 £2 SOCLCHH_S ADORESSMYNANO, TYPES#] 


93 


Listing 
MAING 

G3 §6 3 

0043 31 

93 50 €8 

9646 32 

03 $0 E8 

0033 31 

@3 5¢ Es 

9009 31 


83C0G960 SF 00 


TE 06 

02 

83 S90 E83 
9699 3% 


53 606090003 °GF 00 
$9 SA 3¢ 


03 56 ES 

96045 31 

79 Ss 69 

50 Go AA 3¢ 
$7? 30 ©3 

23 5¢ €9 


1C aa 92 Ci 
2s 12 


20 aa 92 co 





WRITING AN AME 


of MYCOMPAME.MAR Program (Page 2 of 3) 


6~JUN~-1982 15313503 VAX-11 Macre VO3-00 
6—JUN"1982 152122356 ORAOSCCOURSE. SYSPRGo AMET) 


0013 53 SLBS RO, 38 


0015 §4 8Rw ERROR 

0019 5$ 

0029 $6 3 Assign channel to terminal te communicate 

0919 S$? 388 SASSIGN_S CMANSTTCHAN, DEVNARSTT 

eaze $§ 6LeSs RO, 58 

€031 $9? BRw ErRLxor 

0036 69 

0936 61 § Open file containing C% image as private section 
0036 62 $8: SOPEN FAS@SECFAB 

0041 63 8L3s RO, 1068 

00464 64 SRY ERRGR 

0047 6§ . 

0047 686 ¢ Create virtual address space and sap CM image 

0967 67 108% SCRMPSC_LS INFORSRANGE, FLAGS SESECSM_ WRT, = 

0047 68 CHANBSECFABSFABSL STV 

0063 69 BL8S RO, 208 

0068 708 BRU ErRoR 

C671 7% 

COT? 72 3 Establish PSL and PC for compatibility mode image 
0971 73 26$¢ PUSKL ePse. $ PSL oredefined 

0077 76 CURL ~¢€SP) 8 PE = 6 

0079 7$ RET t transfer control to image 
OOTA T6 . 

COTA 77 3 €reer occurred in main part of AME 

Oa7a 78 ERRORS SEXIT_S CODE=RO 

6083 79 

6083 $0 

0063 62 ¢ Cerdition handler 

0083 82 : 

€083 83° ¢ Compatibility mede exception had to occur to get here 
0983 @& SYHANOSS 

6083 85 SQTOW_S CHANSTYTCHAN, FUNCS@TOS_WAITEVBLK, PLZCOMP, = 
C083 a4 PZESCOMPLEN, Pee@CR_LF ; 

OGAA = 87 8css RG, 108 

0043 @3 eRw ERR 

0080 #9 , 

0680 $0 3 Cisplay contents of Pl space area Cregisters 20 and R1) 
00894 92 1083 “OVL G*SYSSGL_CMENTX, R20 $ Base ef Ch context ares 
0587 92 MOVZWL CRLOD, RO ? pick up RO 

coes a3 SFAG_S CTYRSTRSCTR, OUTLENSFACLEN, GUTBUFSOUT, PL=eRG 
coos 96 8L8S RO, 208 

0003 95 SRW ERR 

oocs 96 208s SOUTPUT CHANSTTCHAN, LENGTHSFADLEN, SUFFER SAUFF 

0106 97 siac RG. ERR 

0107 93 MOVZWEL 4CR109, 20 + pick up @ 

e103 99 SFAO_LS CTRSTRECTR2, OUTLENSFAGLEN, OUTBUFSQUT, P1=RO 
01246 100 erec RO, ERR. 

0129 10% SOUTPUT CHANSTTCHAN, LENGTMSFADLEN, SUFFER SBUFF 

0152 102 sisc RO, ERR 

0185 163 

07186 104 3 Check for LOT (CCM code 2) in CM context ares 

Oo1s¢ 105 CRPL #2, 28CR10) 

0159 106 SNEQU ERR 3 if not, exit 

o1ss 1c? 

C153 108 ; Update PC so don’t loop CYIOT instruction uses 2 bytes) 
o1rfsa 109 ADOL2 #2. 32¢€R10) 


94 


Listing 

OICCGLLI3° SF 23 88 e3 
7 $9 38 73 
$2 Sa 7 

£6 aa 12 

£5 ga 8) 

$3C30309 3F cs 
09000123°FF ef 


$f 
st 
$1 
$! 
st 


02 


WRITING AN AME 


of MYCOMPAME.MAR Program (Page 3 of 3) 


cise 
C167 
Cie? 
0167 
0167 
c1éa 
0169 
c179 
0173 
C17? 
O1Te 
o1e0 
0186 
0180 
e189 
£189 


119 
121 
112 
112 
116 
115 
114 
117 
118 
119 
129 
t21 
12 

123 
124 
125 


wOvt 
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B2CRLOD, NEWPC > save to push on stack 


Return control to compatibility mode image 


after 
“OVO 
"OVO 
“Ova 
MOVL 
PUSHL 
PUSHL 
RET 


trror 


restoring registers RO-R6 
€R10)9%,R0 
€R1034,R2 
CR109O RS 
CR10)—RE 
ePst 
NEWPC 


in Handler er Non-I0T Compatibility Mode Exception 


SEXIT_S CODESRO 


2 END 


STart 


Listing of MYCOMPAME.COM Procedure 


MYCONPAME.CON 


TRis coanand procedure assembles and links a user 
written AME Cat a base address of 64K) 


$ MAC/LIST MYCOMPAME 
$ LINK/MAP/FULL 


SASEzZX10000 


tt’ 
$ RUN HYCONPANE 
Compatibility 
Value in RO = 
- Vakve in Ri s 
Compatibility 
Value in RO = 
Value in R1 & 
Compatibility 
Value in RO « 
Value in Ri #2 
t 


WYCOMPAME,SYSSINPUT/OPTION 


° 


Sample Run 


pode excertion 
0004 (hex) 
Q003 (hex) 
aode excertion 
QO0A (hex) 
0014 (hex) 
acde exception 
000A (hex) 
0014 (hex) 


95 


